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Dear You! 

This is volume 2 of The Secret Guide to Computers. Before you read it, read 
volume 1. To get volume 1, use the coupon on the back page. 

Volume 1 explained all the fundamental tricks of how to program in BASIC; it 
also explained the fundamental differences between manufacturers. Volume 2 picks 
up where volume 1 left off, and digs even deeper. 

Volume 2 is the only book ever published that covers a// aspects of programming 
style. (See pages 62-74.) It's the only book ever published that covers all three 
popular graphics systems: Radio Shack's, Apple's, and Atari's. (See pages 38-42.) 
It's the only book ever published that explains all of the 59 difficulties you'll have, 
when you try to convert a program from one computer to another. (See pages 4-5.) 
It reveals a faster way to alphabetize than you'll find in any other book. (Pages 82-86.) 
You'll also find many other goodies, ranging all the way from music to calculus. 

(For a complete list of highlights, see page 2.) 

This is the tenth edition. Pages 43-91 are reprinted from the previous edition; 
the remaining pages of this volume are brand new, and have never been published 
before. 

The Secret Guide to Computers consists of eight volumes. The important facts about 
BASIC are in volumes 1 and 2; but to become a complete expert, you'll need to know 
the many additional topics in volumes 3-8. If you want to program the computer to 
run your business, you'd better read volumes 3-8, which cover topics such as 
"the best way to organize a data file", "PRINT USING", "COBOL versus BASIC", 
"business software packages", and "how to get discounts". (To find out more about 
volumes 3-8, see page 96.) 

Anyone who buys at least one volume of The Secret Guide to Computers has the 
right to phone me, ask me any questions, and get my answers free. You can call day 
or night, 24 hours: I'm almost always in, and I sleep only lightly. My number is 
(617) 266-8128, Boston. Your only expense is what you pay Ma Bell for the phone call; 
she'll charge you practically nothing if you call when her rates are low (after 11 PM, 
or before 8 AM, or Saturday, or before 5 PM Sunday). For example, at those times 
you can call all the way from California to Boston for just 7¢ initially, plus 19¢ per 
minute. ; 

The free consulting service applies only to phone calls; I will not write letters. 
But if you wish, you can tape the phone call. When you call, begin by saying your 
name; the country or state you're calling from; which volumes of The Secret Guide 
to Computers you own; and a one-sentence summary of your question. Afterwards, 
fill in the background details about your question; while you fill in the background, 
I'll interrupt with several comments and additional questions. 

The consulting service works well: thousands of people have called my number 
and received the free help. 

When you call, you'll probably get me personally. If nobody answers, I'm out on 
a short project: please call again. If you get my robot "answering machine", I'm out 
on a very long project: leave your name, number, and hours when you can be 
reached, and I'll call you back at my expense— even if it's long distance or overseas. 

During July and the first half of August, I teach an intensive computer course 
in Connecticut; I hope you join us! During that time, since I'm not in Boston, my 
Boston phone is answered by my robot, who will help you. 

Looking forward to hearing from you! 

At your service, 
Your computer butler, 


JE MSS dig \ ye 


Russ Walter 


P.S. We continually improve this book. You're reading the third version of the 
tenth edition. It contains many improvements over the previous versions. 
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LISTS 
the 59 hassles, when you convert a program from one computer to another 
an outline of all of BASIC 
a list of the first volume's ten boo-boos 
how Atari's BASIC is peculiar 


FUN 
fancy tricks you can play with your keyboard 
technical details (too scary for volume 1!): they explain what's really going on! 
4 ways to say "IF": which computers understand all 4? 
"OR", "AND", and alternatives 
computer manufacturers disagree about the difference between "STOP" & "END" 
use subroutines to talk about Yankee Doodle and old ladies who swallow flies 


ON 
how to use "ON...GO TO" during Christmas 
who refuses to talk about "ON...GOSUB"? 


ERRORS 
the 21 major errors you'll make, if your computer is by Atari 
the 23 major errors you'll make, if your computer is by Radio Shack 
how to set a trap 


ARTS 
how to make a computer sing four-voice harmony 
a complete program that prints a beautiful calendar 
Radio Shack versus Apple versus Atari: the war of the pixels— and the cinema 


FUNDAMENTALS 
old-fashioned programming: quaint, but still used! 


STYLE 
psychological tricks, to turn yourself into a computer expert 
the wisest way to invent a program 
how to make your program faster and briefer 
a trick: how to skim a program, & instantly spot the line containing faulty logic 
the 3 main causes of round-off error, and how to combat them 
6 ways to guarantee that your program always works 
how to package your program, to make sure everybody loves it 


TRICKY FUNCTIONS 
yes, you can conquer advanced math: cube roots, trigonometry, even calculus! 
how to do a strip tease— by using INT, SGN, and ABS 
how to make the computer tell you the date & time— and why to distrust it! 
how to rip apart a string, and dissect its guts 
how to convert from numbers to strings, and from strings to ASCII 


FASTEST PROGRAMS 
the "Shell-Walter sort" is the fastest way to alphabetize 
how to make your computer go faster— without buying a new CPU 
how to shuffle a deck of cards: the "idiot" versus the "professional" 
how to draw a graph and label each point— quickly! 
the shortest program that plays a flawless game of tick-tack-toe 


DATA FILES 
9 ways to create a sequential-access data file 
6 ways to create a direct-access (random-access) data file 


WARM-UP 


You'll be an expert 


Apology 
Atari 


Oo & 


KEYBOARD 


Two shift keys 8 
Lock key 8 
Numeric keypad 8 
Canceling a line 8 
Repetition 9 
Screen 9 
Control key 10 


ELEMENTS 


Large line numbers 12 
Grammar 12 
A variable is a box 14 
Long variable names 15 


HOW TO SAY "IF" 


Four methods 16 
OR 18 
AND 19 


TRICKY LOGIC 


STOP versus END 20 


Subroutines 20 
ON...GO TO 27 
ON...GOSUB 28 
ERRORS 

How it gripes 29 
Trapping 31 
ARTS 

Music 32 
Tab 34 


Pixels 38 
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FUNDAMENTALS 


Calculations 
Contrasts 

Input 

Disks 

Fancy printing 
READ...DATA 
Functions 

Loop techniques 
Subscripts 
REMARK 


STYLE 


Become an expert 


62 


How to invent a program 62 


Make it efficient 
Don't be silly 
Avoid round-off 
Test your program 
Document it 


TRICKY FUNCTIONS 


Roots 
Trigonometry 
EXP 

Logarithms 

INT 

SGN 

Time 

String analysis 
String conversion 
ASCII 


FASTEST PROGRAMS 


Fastest way to sort 
Speed up the computer 
Fastest way to shuffle 
Fastest way to graph 
Fastest tick-tack-toe 


DATA FILES 


Sequential access 
Direct access 


92 
94 
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fonversion hassles 


Where to find details 


CONSTANTS volume page 
The largest permissible line number (usually 99999) depends on your computer. 2 12 
The safe range (usually 1E-38 to 1E38) depends on your computer. 1 24 
Different computers produce different amounts of round-off error. 2 70 

VARIABLES 
On some computers a variable's name must be short. 215 
On Radio Shack with Level-1 BASIC, the only string variables are A$ and B$. 1 29 
On some computers, if you use a string variable, you must say DIM. 1 29 
Some PDP-8 computers don't understand string variables. 1 29 
Some computers prohibit string arrays, or place limitations on string arrays. 1 88 
On computers larger than micro, the DIM statement's subscript must be constant. 2 13 
On Honeywell and PDP-8, each assignment statement must begin with LET. 1 26 
Just Radio Shack and CP/M MBASIC understand DEFINT. 2 85 

FUNCTIONS 
Atari doesn't understand TAN. 2 76 
Some computers don't understand LGT. 2 50 
On some computers, say LOG10 instead of LGT. 277 
Different computers handle random numbers differently. 1 66 
Different computers handle random decimals differently. 2 53 


To compute the time and date, different computers use different functions. 2 
To analyze strings, different computers use different functions. 2 
On IBM, say NUM instead of VAL. 2 80 
Some computers don't understand STR$. 2 
Different computers treat ASCII differently. 2 
To say DEF on a Radio Shack, you must buy the disks. 2 


PRINT 

Different computers use different abbreviations for the word PRINT. i 
Just Radio Shack and Atari let you say LPRINT. 1 
On some computers, you can't omit the semicolon from a PRINT statement. 2 
Apple and Atari computers don't automatically print spaces near numbers. 2 
The width of each zone, and the quantity of zones, depends on the computer. 1 68 
On PET, CBM, IBM, and Atari, you can't say TAB. 2 
Just Apple lets you say INVERSE, NORMAL, and FLASH. 2 

2 


Just on Radio Shack, CHR$(23) makes the characters fat. 10 
INPUT 

On some computers, put a comma instead of a semicolon after the INPUT's prompt. 1 30 

Some computers don't allow the INPUT statement to contain a prompt. 1 30 

On some computers, if you input a string variable, you must say CLEAR. 1 34 


ADVANCED 1/0 


On some computers, you must put each DATA item in quotation marks. 1 50 
Different computers handle data files differently. 2 92 
Different computers use different methods of handling pixels. 2 38 
Just Atari lets you easily say SOUND. 2 32 
On Atari, you must not put a subscript in a READ or INPUT statement. yay A 
On PDP-11 and PDP-20, to print a table you must put a comma after MAT. 1 84 
Different computers use different methods of handling MAT INPUT. 2 59 
Most microcomputers don't understand the word MAT. 1 79 
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ON 
If you say ON N, and N is less than 1 or too large, some computers gripe. 


On Atari, IBM, and HP, you must say ON...GO TO and ON...GOSUB differently. 


Some computers don't understand ON...GOSUB. 
Different computers use different methods of error trapping. 


IF...THEN 
On some computers, you must put a line number after each THEN. 
Some computers don't understand the word ELSE. 
On PDP-11 with only BASIC-PLUS, you can't put a blackslash before ELSE. 
Some computers don't understand the word OR. 
Some computers don't understand the word AND. 


END 
On some computers, the bottom line must say END. 
On some computers, you can't say END in the middle of a program. 


FOR...NEXT 
On Atari, to exit from a FOR loop you must say POP. 
You can omit the variable after NEXT, just on some microcomputers. 
If you have a primitive microcomputer, it does each FOR loop at least once. 


OTHER CONTROL STATEMENTS 
On Radio Shack with only Level-1 BASIC, omit the space between GO and TO. 
Different computers use different abbreviations for REMARK. 
Some computers don't allow colons. — 
If your computer is "indecent", advanced programs won't work. 


Outline 


CONSTANTS volume page PRINT CONTROL 

strings 1 28 strings 1 10 colon 

numbers eee numbers 1 25 REMARK 

TABI oT Ee blank lines 1 14 GO TO 

VARIABLES ‘ 

typical numeric var. 1 26 ele i : Pe ela 

eegen waniabics Gee? TAB 2 34 FOR...NEXT 
poeiawanaules rae MAT PRINT 1 79 simple IF... THEN 
subscripted variables 1 78 ‘s P d IF THEN 
a variable is a box 214 INPUT Sr ApuE ae 
long variable names 215 fundamentals 1 30 END 

OPERATIONS multiple inputs 2 45 STOP versus END 
ea ae ; MAT INPUT 2 59 

add, sub., mul., div. Ie22 COMMANDS 
exponents 2 43 READ Fiaeentals 
concatenation 279 DATA above 1 48 i a 
FUNCTIONS ppt crte ; He freezing the screen 
summary 2 90 MAT READ 1 80 keyboard tricks 
details eo advanced editing 
random integers 1 62 ADVANCED 1/0 SAVE 

random decimals 2 51 data files 2 92 leaving the computer 
matrix functions 2 57 arts 2 Pa ey a hy ce 

DEF 2 53 ee 


main techniques 
efficiency tricks 
easy debugging 


advanced debugging 


error messages 
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YOU'LL BE AN EXPERT 
This volume will turn you into an expert programmer. But this is volume 2; before 
you read it, you must read volume 1. To get volume 1, use the coupon on the back 


page. 


APOLOGY 


If you own the tenth edition of volume 1, please correct these errors: 


Place in the tenth 


edition of volume 1 What it said 


bottom of page 2 
bottom of page 10 


top of page 25 


top of page 25 


bottom of page 30 


middle of page 35 
bottom of page 43 


top of page 72 


middle of page 81 


middle of page 89 


Walter was was Henry Walter 


do this instead of typing the 
word NEW: while you hold 


down the CONTROL and SHIFT 
keys, tap the CPU RESET Key. 


-3 IS MY FAVORITE NUMBER 


7 DONUTS 


On Apple computers using 
Integer BASIC (instead of 
Applesoft BASIC), type a 
comma instead of a semicolon: 
10 INPUT "WHAT IS YOUR 
NAME" ,N$ 


20 PRINT "IN WHAT YEAR 


IF A>4 If Ais greater than 
or equal to 4 


What word means 'brother or 
sister'? How many cups 


100 FOR I = 1 TO 50: 
PRINT X(I): NEXT 


20% discount if you order 2 
complete sets (or any 18 


ATARI 


What it should have said 
Walter was Henry Walter 


do this instead of typing the 

word NEW: press the ESC key, 
then the W key; the computer will 
say "MINIMUM RAM AVAILABLE?"; 
press the RETURN key. 


-3 IS MY FAVORITE NUMBER 
(Exception: Apple computers 
omit the space after -3.) 


7 DONUTS (Exception: Apple 
computers omit the spaces. ) 


On Apple computers using 

Integer BASIC, type a comma 

instead of a semicolon: | 
10 INPUT "WHAT IS YOUR NAME" ,N$ | 
On Apple computers using Applesoft 
BASIC, insert a question mark: | 
10 INPUT "WHAT IS YOUR NAME?";N$ 


20 INPUT "IN WHAT YEAR 


IF A>4 If Ais greater than 4 


What word means 'brother or 
sister'? What was Beethoven's 
first name? How many cups 


100 FOR I = 1 TO 50: 
READ X(1): NEXT 


20% discount if you order 2 
complete sets (or any 1/6 


Recently, many people have been buying the Atari computer. Unfortunately, the 
Atari computer is quite different from most other microcomputers. Here are the 


differences.... 


Getting into BASIC is easy: when you turn the computer on, it will automatically 


say READY. 


To cancel the last character you typed, press the DELETE BACKS key. 
To give an abortion, press the BREAK key 
To print on paper (instead of on the screen), say LPRINT (instead of PRINT). 
To list on paper, say LIST "P:". 
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For numbers, the safe range goes from 1E-98 to 1E98. 
Most other computers print a blank space after every number, and a blank space 
before every number that's positive. But the Atari does not. 
Like the Nova, the Atari requires you to say DIM, for every string variable. 
The Atari does not permit the INPUT statement to contain a prompt. Instead of 
saying— 
10 INPUT "WHAT IS YOUR NAME";NS$ 
you must say: 


10 PRINT "WHAT IS YOUR NAME"; 
11 INPUT N$ 


To give a program the name "JOE", and copy it onto the disk, type this: 
SAVE "D:JOE" 


To prove the program is on the disk, type the word DOS, then press the RETURN 

key, then type the letter A, then press the RETURN key twice. The computer will 

print a catalog of all the programs on disk. Then press the SYSTEM RESET button. 
To copy JOE from the disk to the main memory, type this: 


LOAD ''D: JOE" 
To erase JOE from the disk, type this: 
DOS 
D 
JOE 
7 


The computer will delete JOE. Then press the SYSTEM RESET button. 

To replace JOE, say SAVE "D:JOE". 

To copy a program onto a tape, adjust the tape recorder, then type the word 
LPRINT, then press the RETURN key (which might make the computer print an 
error message, which you can ignore), then type the word CSAVE, then press the 
RETURN key twice. To retrieve that program, adjust the tape recorder, then type 
the word CLOAD, then press the RETURN key twice. 

To list just line 20, say LIST 20. To list from line 20 to line 50, say LIST 20,50. 
To list from line 20 to the end, say LIST 20,32767. To list from the beginning to 
line 20, say LIST 1,20. 

To freeze the screen— or to "unfreeze" the screen— do this: while you hold down 
the CONTROL key, tap the 1 key. 

If a FOR...NEXT loop contains a GO TO statement that makes the computer skip 
out of the loop, you should say "POP: GO TO" instead of "GO TO". If the GO TO 
statement makes the computer skip out of two loops at once, you should say 
"POP: POP: GO TO" instead of "GO TO". 

Instead of saying RND(5), say INT(1+5*RND(0)). Omit the line that says RANDOM. 

The screen consists of 4 zones; the width of each zone is 10 characters (except 
that the width of the rightmost zone is 8 characters); so the width of the entire 
screen is 38 characters. 

A READ statement must not contain a subscript. So instead of saying— 


READ X(I) 

say: 

READ A: XCI)=A 

The same problem occurs with INPUT; instead of saying— 
INPUT X(I) 

say: 

INPUT A: XCI)=A 


You can't create a list of strings. You can't create a table of strings. 
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TWO SHIFT KEYS 
Your keyboard probably has two SHIFT keys. (Exception: the Texas Instruments 
microcomputer keyboard has only one.) 
One SHIFT key is on the left side of the keyboard; the other SHIFT key is 
on the right side. It doesn't matter which SHIFT key you press. Press whichever 
SHIFT key makes your fingers comfortable. 


LOCK KEY 
On some keyboards, you'll see a LOCK key. (For example, you'll see it on the 
Decwriter, the Sorcerer, and the Atari. On the Atari, it's called the CAPS LOWR 
key.) Here's how to use it. 

Such a keyboard can operate in two modes: "upper-case only" and 
"upper-and-lower-case". If it's operating in "upper-case only", all the letters are 
automatically capitalized. If it's operating in "upper-and-lower-case", the letters 
are not automatically capitalized: to create a capital letter, you must press the 
SHIFT key. 

To switch from one mode to the other, tap the LOCK key. The keyboard will 
stay in the new mode, until you tap the LOCK key again. (Exception: on the Atari, 
to switch to upper-case-only, tap the LOCK key while holding down the SHIFT key.) 

The LOCK key affects only the capitalization of /etters. It does not affect numbers 
or punctuation. 

For example, the LOCK key has no affect on the key. Regardless of which 

4 


mode you're locked into, pressing the key produces a 4 (unless you press the 
4 
SHIFT key). 


NUMERIC KEYPAD 
On the far right side of your keyboard, you might see an extra cluster of keys 
that contain numbers. That group of keys is called the numeric keypad. For 
example, Radio Shack's numeric keypad looks like this: [9] 


4] GT [4 
[O] [J 


To type a number, use the numeric keypad...or use the top row of the main keyboard. 
Use whichever makes your fingers comfortable. 


CANCELING A LINE 
If you've been typing a line and regret it, here's how to cancel the entire line: 


Computer How to cancel the line you've been typing 

PDP-8, HP-2000, CDC Press the ESCAPE key. 

IBM (using CMS) Type acent sign (¢). 

Nova, Eclipse While you hold down the SHIFT key, tap the L key. 

Radio Shack While you hold down the SHIFT key, tap the left-arrow (+). 
Atari While you hold down the SHIFT key, tap the DELETE BACKS key 


PDP-10, PDP-11, PDP-20 While you hold down the CONTROL key, tap the U key. 
Honeywell (DTSS), Apple While you hold down the CONTROL key, tap the X key. 
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REPETITION 


Suppose you want to type this: 


PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP 


To do so, you can press the P key many times 
short cut. 


- But some computers let you use a 


On Atari computers, press the P key and keep holding it down. If you hold it 
down for more than 1 second, the computer will automatically print the letter P 


many times. When the computer has printed as 
from the P key. 


many P's as you like, lift your finger 


On terminals that have a REPEAT key, hold down the P key and the REPEAT key 
simultaneously. As long as you keep holding down both keys, the computer will 


repeatedly print the letter P. 
SCREEN 


If your computer is modern, it uses a television screen (instead of paper). Whatever 
you type appears on television; the computer's answers appear on television also. 
The television screen usually prints characters that are light (almost white) against 


a background that's dark (almost black). 


Erasing the screen 
Here's how to erase the characters from the screen, so that the screen becomes 


completely dark: 


Computer How to erase the screen, easily 

Radio Shack Press the CLEAR key. 

Apple Press the ESCAPE key. Then 
type the symbol @. Then press 
the RETURN key. 

Atari While you hold down the SHIFT 
key, tap the CLEAR key. 

PET, CBM _ While you hold down the SHIFT 


key, tap the CLR HOME key. 


How to make line 20 erase the screen 


20 CLS 
20 HOME 


20 GRAPHICS 0 
20 PRINT dae? 


Whike you hold down the SHIFT 
key, press the CLR HOME key. 


When you erase the screen, you are not erasing the computer's memory. The only 


way to erase the computer's memory is to type 


the word NEW. 


Reversing the color 
Instead of always printing light characters on a dark background, some computers 
let you reverse the colors, so that you see dark characters on a /ight background. 


This program prints the word UNBEATABLE, so that the UN is normal (light-on-dark), 


the BEAT is reversed (dark-on-light), and the ABLE is normal again (light-on-dark): 


Apple Atari 
10 PRINT "UN"; 10 PRINT "UNBEATABLE" 
PRR 
a ae sRGE tia Herne, press Here, press 
Fe met he key. the key. 
40 NORMAL 


50 PRINT "ABLE" 


PET, CBM 
10 PRINT ''UNBEATABLE" 
h 4 
Here, press Here, while holding 
the OFF RVS down the SHIFT key, 
Rey. press the OFF RVS key. 
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Blinking 
If you have an Apple computer, you can make it blink. This program prints the 
word UNBEATABLE, so that the UN is normal (light-on-dark), the BEAT is flashing 
(dark-on-light, alternating with light-on-dark), and the ABLE is normal again 
(light-on-dark): 


10 PRINT "UN"; 


20 FLASH 
30 PRINT "BEAT"; 


40 NORMAL 
50 PRINT "ABLE" 


Fat characters . 
On Radio Shack's screen, each character normally looks tall and thin. To make the 
characters look fatter, tap the key that has a right-arrow (~), while holding down 
the SHIFT key. Presto, the characters on your screen become fatter! Henceforth, 
all characters you type will be fat...until you clear the screen (by pressing the 
CLEAR key, or typing CLS or NEW). 

A different way to make the characters fatter is to give this command: 


PRINT CHR$(23); 
Here's a sample program: 
Enase the screen, and make sure the characters are thin. 10 CLS 


Print the word FUN, using thin characters. 20 PRINT "FUN" 

Pause 1 second, to make the human stare at the word FUN. 30 FOR I = 1 TO 400: NEXT 
Enxase the screen. 40 CLS 

Change to fat-character mode. 50 PRINT CHRS$(23); 

Print the word SURPRISE, using fat characters. 60 PRINT ''SURPRISE" 

Pause 1 second, to make the human stare at SURPRISE. 70 FOR I = 1 TO 400: NEXT 
Repeat. 80 GO TO 10 


CONTROL KEY 
Near the left SHIFT key, your terminal has a CONTROL key. (Exception: if you 
have a Radio Shack or PET or CBM or TI-99/4, the CONTROL key is missing. ) 

You can control each letter of the alphabet. Here's how to type a controlled G: 
hold down the CONTROL key; and while you keep holding down the CONTROL key, 
tap the key marked G. Try it: type a controlled G, and find out what happens! 

On Atari computers, if you type a controlled letter, the computer prints a weird 
picture on the television screen: for example, when you type a controlled G, the 
computer prints a picture of a staircase. 

On most other computers, if you type a controlled letter, the terminal acts weirdly: 
for example, when you type a controlled G, the terminal rings its secret bell or buzzer; 
so you'll hear a ring or a ding or a buzz or a beep. 

On your terminal's paper or screen, the place where the next character will 
appear is called the cursor. As you type, the cursor moves from left to right, 
one space at a time, until it hits the right margin, whereupon it moves to the left 
margin of the line below. But on some terminals, you can make the cursor skip 
to a different position, if you type a controlled letter: 


Controlled 

letter Name Where the cursor will move Comment 

H backspace to the left, one space like pressing the BACKSPACE key 
I horizontal tab to the right, several spaces like pressing the TAB key 

J line feed down, one line like pressing the LINE FEED key 
K vertical tab down, several lines 

L form feed down, to the next "page" 

M 


return to the left margin ' like pressing the RETURN key 
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Type each of those controlled letters on your terminal, and see which of them 
your terminal can handle. If your terminal uses paper, the "backspace" probably 
won't work. If your terminal uses a screen, the "form feed" will probably erase 
everything that's been written onto the screen, so the screen becomes blank. When 
you tell your terminal to "return", it automatically does a "line feed" also. 

PDP-10 and PDP-20 computer can handle these controlled letters also: 


Con- 
trolled 
letter Meaning When to type it Effect 
cc Cut it out! The computer's doing The computer will stop whatever it's doing, 
Cut it out! something you don't and will wait for your next command. 
like. 
0. Overlook the The computer is The rest of the message will be quick and 
output. printing a long invisible. (If you change your mind, and 
message you don't would like the end of the message to be 
want to read. visible, type another controlled O, which 
will turn the visibility back on.) 
R Reprint the You're in the middle Underneath the messy line you've been 
line. of typing a line, but typing, the terminal will reprint the line 
you've made so many more neatly, and let you continue to 
DELETEs that you revise it. 
forget your location. 
Ss Stop printing. The computer is The computer will stop printing, and wait 
printing faster than for you to read what it's already printed. 
you can read. When you've read that part, type a 
controlled Q, which makes the computer 
continue printing. 
T Type the You want to know The computer will print its status, how 
status. what the computer many seconds it's been thinking about you 
is doing. since you logged in, and how long you've 
been connected to it since you logged in. 
Then it will continue what it was doing. 
U Undo the line. The line you've been The terminal will not send the line to the 


typing is incorrect, computer. Underneath that bad line, type 
and you don't want the corrected version. 
the computer to see it. 


Of those commands, the controlled CC is the most powerful, because it stops the 
computer completely. The controlled O and controlled S handle long output; if you 
type a controlled S, you must type a controlled Q afterwards. The controlled R and 
controlled U help you edit your typing; every line you type must end with either 
a RETURN (if you're satisfied) or a controlled U (if you're disgusted) or a controlled R 
(if you forget what you've done). 

The most important commands are the controlled CC (your "panic button") and 


the controlled U. For example, suppose the computer asks for your name, and you 
type HOE instead of JOE, like this: 


WHAT IS YOUR NAME? HOE SMITH 


Instead of pressing the RETURN key after HOE SMITH, type a controlled U, and 
retype your name correctly underneath, like this: 


WHAT IS YOUR NAME? HOE SMITH controlled u 
JOE SMITH 


PDP-11 computers are similar, except: you can say controlled C instead of 
controlled CC; controlled R and T don't work; the second controlled O doesn't work. 
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LARGE LINE NUMBERS 
In your program, each statement must begin with a line number. Usually, the 
first line number is 10, the next is 20, the next is 30, etc. 
How large can a line number be? The answer depends on which computer you have: 


Computer Largest permissible line number 
Nova, Eclipse 9999 
PDP-11, Atari 32767 
Apple, PET, CBM 63999 
Radio Shack 65529 
Maxicomputers (IBM, 99999 
Honeywell, 
Univac, CDC, 


PDP-10, PDP-20) 
This line is wrong, because the line number is too large: 
212947 PRINT "TICKLE ME" 


That line number is so large that not even a maxicomputer can handle it. If you 
type that line on a maxicomputer accidentally, and want to delete it, type the first 
five digits, with nothing after them: 


21294 


GRAMMAR 
A numeric constant is a simple number, such as: 


0 1 2 8 43.7 -524.6 -003 4.5E5 


4 | 
which means, "take 1.3, and move the 
decimak point 5 places to the right" 


A numeric constant does not contain any arithmetic. For example, 7+1 contains 


arithmetic (+), so it is not a numeric constant. 8 is a numeric constant, even though 
7+1 is not. 


A string constant is a simple string, in quotation marks: 


"I LOVE YOU" "76 TROMBONES" "GO AWAY!!!" "XYPW EXR///746" 
A constant is a numeric constant or a string constant: 
0 8 -524.6 Lic pel es) PLP LOVES 0Uy "XYPW EXR///746" 


A string variable is a variable that stands for a string: 
AS BS YS Z$ 
A numeric variable is a variable that stands for a number: 
A B Y Z 
A variable is a string variable or a numeric variable: 
A$ Z$ A Z 


A numeric expression is a numeric constant (such as 8) or a numeric variable 
(such as A) or a combination of them, such as 8+A, or 8*A, or Z*A, or 8*2, or 7+1, 
or even Z*A-(7+Z) /8+1.3E5*(-524.6+B). A string expression is a string constant 
(such as "I LOVE YOU") or a string variable (such as A$) or a combination. 

An expression is a numeric expression or a string expression. 
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In a DATA statement, you must have constants. 


Right: 10 DATA 8, 1.3E5 (8 and 1.3E5 ane constants. ) 
Wrong: 10 DATA 7+1, 1.3E5 (7+1 4& not a constant. ) 


In the DATA statement, if the constant is a string, you can probably omit the 
quotation marks. 


Right: 10 DATA 'JOE","'MARY" 
Also right, on most computers: 10 DATA JOE,MARY 


If your computer permits the INPUT statement to contain a prompt, the prompt 
must be a string constant. 


Right: 10 INPUT "WHAT IS YOUR NAME";NS$ ("WHAT IS YOUR NAME" 44 a string constant. ) 
Wrong: 10 INPUT Q$;N$ (QS is not a string constant.) 


In a DIM statement, if you have a minicomputer or maxicomputer, the subscript 
must be a numeric constant. 


Right: 10 DIM X(50) (50 45 a numeric constant. } 
Wrong on a mini or maxi, but okay on a micro: 10 DIM X(N) (N 45 not a constant. ) 


In a GO TO statement, the line number must be a numeric constant. 


Right: 50 GO TO 100 (100 4& a numeric constant. ) 
Wrong: 50 GO TON (N 46 not a numeric constant. ) 


Here are the forms of the most popular BASIC statements: 


General form Example 
PRINT List of expressions and PRINT "WE RUN",3-1;"U"; 

commas and semicolons 
INPUT string constant ; variable INPUT "WHAT IS YOUR NAME'";NS 
variable = expression X = 47+2 
GO TO numeric constant GO TO 10 
STOP STOP 
IF condition THEN List of statements IF A>=18 THEN PRINT "YOU": PRINT "CAN VOTE" 
DATA List of constants DATA JOE,273,219,MARY,412,371 
READ List of variables READ N$,B,A . 
RESTORE RESTORE 
FOR numeric variable = FOR I = 59+1 TO 100+N STEP 2+3 


numeric expression TO 
numeric expression STEP 
numeric expression 


NEXT numeric variable NEXT I 

RANDOM RANDOM 

DIM List of subscripted variables DIM X(3),Y$(20) 
MAT READ variable MAT READ X 


MAT PRINT variable MAT PRINT X 
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A VARIABLE IS A BOX 
The computer's memory consists of electronic boxes. This program puts a number 
into a box: 


10 X=47 
20 PRINT X+2 


Line 10 puts 47 into box X, like this: 


Box X 


Line 20 says to print what's in box X, plus 2. So the computer will print 49. 
You can change what's in a box: 

10 F=4 

20 F=9 

30 PRINT Fxe 


Line 10 puts 4 into box F: 


Box F 
Line 20 puts 9 into box F; the 9 replaces the 4: 


Box F [9] 


Line 30 prints 18. 
Saying "A=B" has a different effect than "B=A". Compare these programs: 


10 A=1 10 A=1 

20 B=7 20 B=7 

30 A=B 30 B=A 

40 PRINT A+B 40 PRINT A+B 

In both programs, lines 10 and 20 do this: 
Box A 

Box B 


In the left program, line 30 makes the number in box A become 7, so both boxes 
contain 7; line 40 prints 14. In the right program, line 30 makes the number in 
box B become 1, so both boxes contain 1; line 40 prints 2. 

Try this one-line program: 


10 PRINT R 


That line says to print a number— the number in box R. Since box R is empty, 
the computer prints this number: 


0 
Here's a strange program: 


10 A=5 
20 A=3+A 
30 PRINT A 


Line 10 puts 5 into box A: 


Box A 


When the computer sees line 20, it examines the right side of the equation, and sees 


the 3+A. Since A is 5, the 3+A is 3+5, which is 8. So line 20 says: A=8. The computer 
puts 8 into box A: 


Box A 
Line 30 prints 8. 
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Another weirdo: 


10 B=6 
20 B=B+1 
30 PRINT Bx2 


Line 10 puts 6 into box B. In line 20, the right side of the equation says B+1, 
which is 6+1, which is 7. So line 20 says: B=7. Line 30 prints 14. 


LONG NAMES FOR VARIABLES 
You've seen that a box's name can be A, or B, or C, or any other letter of the 
alphabet. Some computers permit names that are longer; for example, you can make 
a box's name be JOE, like this: 


10 JOE=5 
20 PRINT JOE+2 


Line 10 does this: 
Box JOE [5] 


Line 20 computes 5+2, and prints 7. 
Here's how various computers fare: 


How long the 


Computer name can safely be Details 

CP/M (if you have CBASIC), 30 characters The first character must be a letter. 
PDP-11 (if you have The other characters can be letters, 
BASIC-PLUS-2 or say digits, or periods. Example: 
EXTEND), PDP-20 PROFIT.IN.1980.BEFORE.OCTOBER 

CP/M (if you have MBASIC), no limit The first character must be a letter. 
Atari The other characters can be letters 


or digits. Example: 
PROFITIN1 980BEFOREOCTOBERADVERTISEMENT 


TI-99/4 14 characters The first character must be a letter. 
The other characters can be letters 
or digits. Example: 

PROFIT1980EARLY 


most microcomputers ~ 2 characters The first character must be a letter. 
The other character can be a letter 
or digit. The name should not be 
any of these words: IF, ON, OR, TO. 
Correct example: 


PR 
PDP-8, PDP-10, Univac, 2 characters The first character must be a letter. 
Honeywell, CDC, IBM The other character must be a digit. 
Example: 


7 
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FOUR METHODS 
Let's make the computer print a question mark and wait for the human to type a 
number. If the human types a number less than 4, let's make the computer say 
THE NUMBER IS SMALL. If the number is not less than 4, let's make the computer 
say THE NUMBER IS LARGE. 
To write the program, you can use four methods: 


Method 1 
10 INPUT N 
20 IF N<4 THEN PRINT "THE NUMBER IS SMALL" ELSE PRINT "THE NUMBER IS LARGE" 


Method 2 

10 INPUT N 

20 IF N<4 THEN PRINT ''THE NUMBER IS SMALL" 
30 IF N>=4 THEN PRINT "THE NUMBER IS LARGE" 


Method 3 

10 INPUT N 

20 IF N<4 THEN PRINT "THE NUMBER IS SMALL": STOP 
30 PRINT 'THE NUMBER IS LARGE" 


Method 4 

10 INPUT N 

20 IF N<4 THEN 100 

30 PRINT "THE NUMBER IS LARGE" 
40 STOP 

100 PRINT "THE NUMBER IS SMALL" 


Method 1 is the briefest and the best. In that method, line 20 means: 


If N is less than 4, print THE NUMBER IS SMALL; 
otherwise, print THE NUMBER IS LARGE. 


So it means: 


Print THE NUMBER IS SMALL, or else print THE NUMBER IS LARGE— depending 
on whether N is less than 4. 


Method 2 is more long-winded, but is still easy to understand. Its lines 20 and 30 mean: 


If N is less than 4, print THE NUMBER IS SMALL. 
If N is greater than or equal to 4, print THE NUMBER IS LARGE. 


Method 3 resembles method 2, but is briefer: it says "STOP" instead of 
"IF N>=4 THEN". If N is less than 4, the computer will print THE NUMBER IS SMALL 
and then stop. If N is not less than 4, the computer will ignore line 20, and will 
therefore reach line 30, which prints THE NUMBER IS LARGE. 


Method 4 is the most long-winded, the ugliest, the hardest to read, and the worst. 
Its line 20 means: 


If N is less than 4, then go to line 100. 


I recommend that you use method 1, if possible. But some computers don't understand 
the word ELSE, and therefore don't understand method 1; on such computers, you 
must use one of the other methods. 

Method 3 contains a colon in line 20. Some computers get confused by that colon. 
On such computers, you must pick a different method instead. 
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Method 4 is ugly, but has one advantage: it works on a// computers. If you're 
trying to write a program that will work on a// computers, you must use method 4. 

If your computer is so stupid that it doesn't understand methods 1, 2, or 3, you 
must use method 4. Otherwise, avoid method 4 like the plague— because it will 
confuse you so badly that you'll make lots of errors. 

If you're buying a computer, try to buy one that understands all four methods— 
or at least understands methods 2, 3, and 4. If you buy a computer that understands 
just method 4, you're asking for trouble! 

Here's how various computers fare: 


Computer What the computer understands 
Radio Shack using Level-2, The computer understands all four methods. (So you 
CP/M using MBASIC might as well use method 1, which is the simplest.) 


PDP-11 using BASIC-PLUS-2, The computer understands all four methods. In line 20 
PDP-20 using BASIC-PLUS-2, of method 3, use a backslash instead of a colon. 
PDP-10 using U. Penn BASIC 


PDP-11 using BASIC-PLUS The computer understands all four methods. In line 20 
of method 3, use a backslash instead of a colon. 
Warning: if you try to put a backslash between the words 
THEN and ELSE, the computer will get confused and gripe. 


Apple using Applesoft BASIC, The computer doesn't understand the word ELSE. 


Radio Shack using Level-1, Therefore, you can't use method 1. But the other three 
PET, CBM, Atari, Sorcerer, methods all work fine. (Method 3 is the best of those; 
Compucolor method 2 runs a close second; method 4 is the worst.) 
IBM The computer doesn't understand the colon. Therefore, 


you can't use method 3. All the other methods work, for 
this example. (If the example were more complicated, so 
that method 1 would require a colon, method 1 wouldn't 

work. ) 


North Star using North Star's If you put a colon in an IF statement, the computer will 
BASIC instead of CP/M handle the IF statement incorrectly. (The computer 
will think the IF statement ends at the colon.) Therefore, 
do not put a colon in an IF statement. Therefore, do 
not use method 3; that method doesn't work. All the 
other methods work, for this example. (If the example 
were more complicated, so that method 1 would require 
a colon, method 1 wouldn't work.) 


Nova, Eclipse The computer doesn't understand the word ELSE, and 
doesn't understand the colon. Therefore, the only 
methods that work are 2 and 4. 


HP-2000, Univac, CDC, After the word THEN, you must put a line number— 
typical PDP-8 as in method 4. The computer understands only method 4. 
So you must use method 4. (Vomit! Puke! ) 
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OR 
Most computers understand the word OR. For example, here's how to say, "If X is 
either 7 or 8, print the word WONDERFUL": 


IF X=7 OR X=8 THEN PRINT "WONDERFUL" 


That example has two conditions: the first condition is "X=7"; the second condition 
is "X=8",. If you use the word OR, put it between two conditions. 


Right: IF X=7 OR X=8 THEN PRINT "WONDERFUL" ("X=7" and "X=8" ane conditions.) 
Wrong: IF X=7 OR 8 THEN PRINT "WONDERFUL" ("8" is not a condition. ) 


If your computer's too stupid to understand the word OR, you must use a longer 
method. 


Short method: 50 IF X=7 OR X=8 THEN PRINT "WONDERFUL" 


Longer method: 50 IF X=7 THEN PRINT "WONDERFUL" 
51 IF X=8 THEN PRINT "WONDERFUL" 


Longest method: 50 IF X=7 THEN 59 
51 IF X=8 THEN 59 
52 GO TO 60 
59 PRINT "WONDERFUL" 


Here's how various computers fare: 


Computers that understand OR Computers that don't understand OR 
PDP-10 using U. Penn BASIC PDP-10 using DEC BASIC 


PDP-20 using BASIC-PLUS-2 PDP-20 without BASIC-PLUS-2 
PDP=11 typical PDP-8 
most microcomputers Nova, Eclipse, Univac, CDC 


IBM computers don't understand the word OR, but use a vertical line instead: 
IF X=7 | X=8 THEN PRINT "WONDERFUL" 


Radio Shack computers having Level-2 BASIC understand the word OR. On Radio 
Shack computers having Level-1 BASIC, use a plus sign and parentheses: 


IF (X=7)+(X=8) THEN PRINT "WONDERFUL" 
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AND 
If your computer understands the word OR, it also understands the word AND. 
Here's how to say, "If P is more than 5 but less than 10, print TUNA FISH": 


IF P>5 AND P<10 THEN PRINT "TUNA FISH" 
Here's how to say, "If S is at least 60 but less than 65, print YOU ALMOST FAILED": 
IF S>=60 AND S<65 THEN PRINT "YOU ALMOST FAILED" 
Here's how to say, "If N is a number from 1 to 10, print THAT'S GOOD": 
IF N>=1 AND N<=10 THNE PRINT ''THAT'S GOOD" 
On IBM computers, instead of using the word AND, use an ampersand: 
IF P>5 & P<10 THEN PRINT "TUNA FISH" 


On Radio Shack computers having Level-1 BASIC (instead of Level-2), use an 
asterisk and parentheses: 


IF (P>5)*(P<10) THEN PRINT "TUNA FISH" 
On other computers that don't understand AND, use a longer method. 
Short: 50 IF P>5 AND P<10 THEN PRINT "TUNA FISH" 
Longer: 50 IF P>S THEN IF P<10 THEN PRINT "TUNA FISH" (Instead of AND, say THEN IF.) 


Longest: 50 IF P<=5 THEN 60 (because the opposite of "P>5" is "P<=5") 
51 IF P>=10 THEN 60 (because the opposite of "P<10" is "P>=10") 
59 PRINT ''TUNA FISH'' 


Here's how to say, "If X is 100, and Y is 209, and Z is 152, print YOU HIT THE 
RIGHT COMBINATION". 


Short: 50 IF X=100 AND Y=209 AND Z=152 THEN PRINT "YOU HIT THE RIGHT COMBINATION" 


Longer: 50 IF X=100 THEN IF Y=209 THEN IF Z=152 THEN PRINT "YOU HIT THE RIGHT 
COMBINATION" 


Longest: 50 IF X<>100 THEN 60 (because the opposite of "X=100" i& "X<>100") 
51 IF Y<>209 THEN 60 
52 IF Z<>toe HEN 60 
59 PRINT "YOU HIT THE RIGHT COMBINATION" 
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lricky fogie 


STOP VERSUS END 


The word STOP resembles the word END. Here's the difference: 


Computer 
Nova, Eclipse 


Atari 


most microcomputers, 
such as Apple (using 
Applesoft), Radio Shack, 
PET, and CBM 


PDP-TlsPDP=20 


PDP-8, PDP-10, HP-2000, 
Honeywell, Univac 


IBM 


Apple using Integer 
BASIC 


Here's a simple program: 


RODPRINT cl Hes 
20 GO TO 1000 
30 PRINT ''DEAD" 
40 STOP 


1000 PRINT "BIRD" 
1010 PRINT "IS" 
1020 GO TO 30 


Difference between STOP and END 


You can put the words STOP and END anywhere in your 
program. If the computer reaches the word STOP, it says 
STOP. If it reaches the word END, it says PROGRAM DONE 
and then END. 


You can put the words STOP and END anywhere in your 
program. If the computer reaches the word STOP, it says 
STOPPED. If it reaches the word END, it says READY. 


You can put the words STOP and END anywhere in your 
program. If the computer reaches the word STOP, it says 
BREAK and then READY. If it reaches the word END, it 
says just READY. 


You can put the word STOP anywhere in your program. 
The word END is permitted only on the bottom line. If 
the computer reaches the word STOP, it says STOP and 


then READY. If it reaches the word END, it says just READY. 


The word END must appear on the bottom line, and only 
on the bottom line. For other lines, say STOP. 


You can put the word STOP anywhere in the program. For 
most programs, say STOP, not END. (If you say END, the 
computer will ignore everything that comes underneath 


the END; so END will become the bottom line that the computer 


Will look at.) 


You can put END anywhere in your program. Use just the 
word END, not STOP. Your program's bottom line ought to 
say END; if it doesn't, the computer will gripe. 


SUBROUTINES 


It makes the computer print: 


The program consists of two parts. The main part (lines 10-40) is called the 


main routine; the bottom part (lines 1000-1020) is called the subroutine. The bottom 
line of the main routine says STOP. 
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Line 20, which is in the main routine, makes the computer skip to the subroutine. 
Line 1020, in the subroutine, makes the computer return to the main routine. 
To make the program, more elegant, change lines 20 and 1020: 


10 PRINT "THE" 

New Line>+20 GOSUB 1000 
30 PRINT ''DEAD" 
40 STOP 


1000 PRINT ''BIRD" 
1010 PRINT "IS" 
New £tne>>1020 RETURN 


The new line 20 says: GO to the SUBroutine that begins at line 1000. The new line 1020 


says: RETURN to the main routine, where you left off. Like the old program, the new 
program prints: 


GOSUB is like GO TO. The GOSUB 1000 means "GO TO line 1000, and remember 
where you had come from"; so the computer goes to line 1000, while remembering 
that it had come from line 20. In line 1020, the RETURN means "RETURN to where 
you had come from"; so the computer returns to line 20, and then proceeds from line 20 
to line 30, which prints the word "DEAD". 

The bottom line of a main routine should say STOP. The bottom line of a subroutine 
should say RETURN. 

Whenever you want the computer to go do a subroutine, say GO SUB. 
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Yankee Doodle 
This program prints the original version of Yankee Doodle: 


Print the first verse >>910 PRINT "FATHER AND I WENT DOWN TO CAMP" 
20 PRINT ''ALONG WITH CAPTAIN GOODING," 
30 PRINT "AND THERE WE SAW THE MEN AND BOYS” 
40 PRINT "AS THICK AS HASTY PUDDING." 


Do the chorus, and then come back++50 GOSsUB 1000 


Print the second verser>3>>>>>60 PRINT "AND THERE WAS CAPTAIN WASHINGTON" 
70 PRINT ''UPON A SLAPPING STALLION," 
80 PRINT "A-GIVING ORDERS TO HIS MEN;" 
90 PRINT '"'I GUESS THERE WERE A MILLION!" 


Do the chorus, and then come back+>+100 GosuB 1000 


Print the thitd verse >>>>>110 PRINT "THE FLAMING RIBBONS IN HIS HAT," 
120 PRINT '"'THEY LOOKED SO TARNAL FINE, AH," 
130 PRINT ''I WANTED POCKILY TO GET" 
140 PRINT "TO GIVE TO MY JEMIMAH." 


Do the chorus, and then come back++150 GOsUB 1000 
That's the end of the songr>160 STOP 


Here's the chorus222>1000 PRINT 
1010 PRINT "YANKEE DOODLE, KEEP IT UP." 
1020 PRINT ''YANKEE DOODLE DANDY," 
1030 PRINT "MIND THE MUSIC AND THE STEP," 
1040 PRINT "AND WITH THE GIRLS BE HANDY." 
1050 PRINT 
1060 RETURN 


Lines 10-40 print the first verse; lines 60-90 print the second; lines 110-140 print 
the third. At the end of each verse, the computer is told to "GO SUB 1000", which 
means go to line 1000, print the chorus (lines 1000-1050), and then RETURN to 
where it left off. Lines 1000-1060, which print the chorus, are the subroutine; the 
verses (lines 10-160) are the main routine. Lines 1000 and 1050 make the computer 
print a blank line at the beginning and end of the chorus. The bottom line of the 
main routine is STOP; the bottom line of the subroutine is RETURN. 

If you accidentally omit line 160 (which says STOP), the computer will proceed 
to do the subroutine an extra time, and then won't know where to RETURN. It 
will gripe, by saying: 


RETURN BEFORE GOSUB 


To avoid such gripes, the last line of a main routine should be STOP. 
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Love poem 
This program prints a love poem: 


{0 PRINT "THE MOST BEAUTIFUL THING" 
20 PRINT "IN THE WHOLE WIDE WORLD" 
SU) PRING) UTS. os" 

40 PRINT "LOVE!" 

50) PRINT “THE OPPOSITE: OF HATE IS\’ 
60 PRINT "LOVE!" 

70 PRINT "THE OPPOSITE OF WAR IS" 
80 PRINT "LOVE!" 

90 PRINT "THE OPPOSITE OF DESPAIR IS" 
100; PRINT, «LOVE! 

110 PRINT “AND WHEN I LOOK AT YOU," 
T2U,PRINI “Ti FEELLOTS OFM 

130 PRINT "LOVE!" 


Lines 40, 60, 80, 100, and 130 print the word LOVE. Let's make those line print the 
word LOVE larger, like this: 


* * * * KOK KK 
* * * * * * 

* * * * * * kk 
* * * kx * 

WK KK Le * * kekKkKEKK 


Here's how: 


10 PRINT ''THE MOST BEAUTIFUL THING" 
20 PRINT "IN THE WHOLE WIDE WORLD" 
S00 PRINT: 1S Say 
New £tne>+40 GOSUB 1000 
Boo PRINT "THE OPPOSITE OF HATE IS" 
New Line++60 GOSUB 1000 
70 PRINT "THE OPPOSITE OF WAR IS" 
New £tne>+80 GOSUB 1000 
90 PRINT ''THE OPPOSITE OF DESPAIR IS" 
New Line>+100 GOSUB 1000 
110 PRINT "AND WHEN I LOOK AT YOU," 
120 PRINT "I FEEL LOTS OF’ 
New Line>+130 GOSUB 1000 
New Line++140 STOP 


1000 PRINT ''* * * * kkk ke RN 
os 1010 PRINT "* tk = * x! 
mP>1020 PRINT "* * * x ok x ok 
1030 PRINT ''* a) hunk x x mt 
<< 1040 PRINT "KkkKkKK * * kkk *& " 
fo h+1050 PRINT 
771060 PRINT 


++1070 RETURN 


In that new version, lines 40, 60, 80, L00, and 130 say GOSUB 1000 instead of 
PRINT "LOVE!". The GOSUB 1000 means: do the subroutine that begins at line 1000. 
The subroutine prints the word LOVE in large letters. 
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Old lady 
Here are the lyrics to famous song: 


There was an old lady who swallowed a fly, 
But I don't know why she swallowed the fly. 
Perhaps she'll die. 


There was an old lady who swallowed a spider 
That wiggled and jiggled and tickled inside her. 
She swallowed the spider to catch the fly, 

But I don't know why she swallowed the fly. 
Perhaps she'll die. 


There was an old lady who swallowed a bird. 
Oh, how absurd! To swallow a bird! 

She swallowed the bird to catch the spider 

That wiggled and jiggled and tickled inside her. 
She swaliowed the spider to catch the fly, 

But I don't know why she swallowed the fly. 
Perhaps she'll die. 


There was an old lady who swallowed a cat. 
Imagine that! To swallow a cat! 

She swallowed the cat to catch the bird. 

She swallowed the bird to catch the spider 

That wiggled and jiggled and tickled inside her. 
She swallowed the spider to catch the fly, 

But I don't know why she swallowed the fly. 
Perhaps she'll die. 


There was an old lady who swallowed a dog. 

I swear on this log! She swallowed that dog! 
She swallowed the dog to catch the cat. 

She swallowed the cat to catch the bird. 

She swallowed the bird to catch the spider 

That wiggled and jiggled and tickled inside her. 
She swallowed the spider to catch the fly, 

But I don't know why she swallowed the fly. 
Perhaps she'll die. 


There was an old lady who swallowed a goat. 
Including its coat, she swallowed that goat! 
She swallowed the goat to catch the dog. 

She swallowed the dog to catch the cat. 

She swallowed the cat to catch the bird. 

She swallowed the bird to catch the spider 

That wiggled and jiggled and tickled inside her. 
She swallowed the spider to catch the fly, | 
But I don't know why she swallowed the fly. 
Perhaps she'll die. 


There was an old lady who swallowed a cow. 
I don't know how she swallowed that cow! 
She swallowed the cow to catch the goat. 
She swallowed the goat to catch the dog. 
She swallowed the dog to catch the cat. 

She swallowed the cat to catch the bird. 

She swallowed the bird to catch the spider 
That wiggled and jiggled and tickled inside her. 
She swallowed the spider to catch the fly, 
But I don't know why she swallowed the fly. 
Perhaps she'll die. 


There was an old lady who swallowed a horse. 
And she died, of course! 


10 
20 
30 
40 
50 
60 
70 
80 
90 
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This program prints the song: 


AS=""THERE WAS AN OLD LADY WHO SWALLOWED A " 

PRINT AS;"FLY.": GOSUB 1070 

PRINT AS;"SPIDER': GOSUB 1050 

PRINT A$;"'BIRD."': PRINT "0H, HOW ABSURD! TO SWALLOW A BIRD!"': GOSUB 1040 

PRINT AS;"CAT.": PRINT "IMAGINE THAT! TO SWALLOW A CAT!"': GOSUB 1030 

PRINT AS;"DOG.": PRINT "I SWEAR ON THIS LOG! SHE SWALLOWED THAT DOG!"': GOSUB 1020 
PRINT A$;"GOAT.'"'s PRINT "INCLUDING ITS COAT, SHE SWALLOWED THAT GOAT!": GOSUB 1010 
PRINT A$;"COW."': PRINT "I DON'T KNOW HOW SHE SWALLOWED THAT COW!"': GOSUB 1000 
PRINT A$;"HORSE,"': PRINT ''AND SHE DIED, OF COURSE!" 


100 STOP 


1000 PRINT ''SHE SWALLOWED THE COW TO CATCH THE GOAT." 
1010 PRINT ''SHE SWALLOWED THE GOAT TO CATCH THE DOG." 
1020 PRINT ''SHE SWALLOWED THE DOG TO CATCH THE CAT." 
1030 PRINT ''SHE SWALLOWED THE CAT TO CATCH THE BIRD." 
1040 PRINT ''SHE SWALLOWED THE BIRD TO CATCH THE SPIDER" 
1050 PRINT "THAT WIGGLED AND JIGGLED AND TICKLED INSIDE HER." 
1060 PRINT ''SHE SWALLOWED THE SPIDER TO CATCH THE FLY," 
1070 PRINT "BUT I DON'T KNOW WHY SHE SWALLOWED THE FLY." 
1080 PRINT "PERHAPS SHE'LL DIE." 

1090 PRINT 

1100 RETURN 


Lines 1000-1100 are a subroutine. The subroutine tells the whole story. In line 20, 
the GOSUB says to do just part of the subroutine— the part that begins at line 1070. 
Line 30 says to do more of the subroutine— by beginning at line 1050. Lines 40, 50, 


60, 


and 70 do progressively larger chunks of the subroutine. Line 80 is the climax: 


it says to do a// of the subroutine. Line 90 provides a humorous ending. 
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One subroutine can lead to another: 


Matin Aoutine>>-10 PRINT "MY" 
20 GO SUB 1000 
30 PRINT "NOSE" 
40 STOP 


Subroutine 1000-+1000 PRINT "TOE" 
1010 PRINT "IS" 
1020 GO SUB 2000 
1030 PRINT "YOUR" 
1040 RETURN 


Subroutine 20002+2000 PRINT ''STUCK" 


2010 PRINT "IN" 
2020 RETURN 


Nesting 


The program consists of three routines. The main routine ends with STOP; each 


subroutine ends with RETURN. 


The main routine consists of lines 10, 20, 30, and 40. Let's see what those 


lines do. 
Line 10 prints MY. 


Line 20 makes the computer do subroutine 1000, which prints TOE, prints IS, does 
subroutine 2000 (STUCK and IN), and prints YOUR. 


Line 30 prints NOSE. 
Line 40 stops. 


So altogether, the computer prints: 


In that example, subroutine 2000 is nested fn subroutine 1000. 
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ON...GO TO 
In your program, you can say: 


50 ON N GO TO 80,100,20,350 


That means: go to either 80, 100, 20, or 350; the decision depends on what N is. 
In other words: 


If N is 1, go to 80. 
If N is 2, go to 100. 
If N is 3, go to 20. 
If N is 4, go to 350. 


In that example, if N is less than 1 or greater than 4, what happens? If your 
computer is a PDP-11 or PDP-20 or Honeywell or CDC or TI-99/4 or uses CP/M's CBASIC, 
the computer will gripe. Most other computers, instead of griping, will proceed to the 
line underneath line 50 (which is probably line 60). 


Weird computers 


For some computers (such as the Atari), you must omit the space between GO and TO, 
like this: 


50 ON N GOTO 80,100,20,350 
For IBM computers, you must write the statement like this: 
50 GOTO 80,100,20,350 ON N 


For HP-2000 computers, you must write the statement like this: 
50 GOTO 80,100,20,350 OF N 


Christmas 
Remember the Christmas carol called "The Twelve Days of Christmas"? The first 
three verses go like this: 


ON THE FIRST DAY OF CHRISTMAS, MY TRUE LOVE SENT TO ME 
A PARTRIDGE IN A PEAR TREE. 


ON THE SECOND DAY OF CHRISTMAS, MY TRUE LOVE SENT TO ME 
TWO TURTLE DOVES...AND 
A PARTRIDGE IN A PEAR TREE. 


ON THE THIRD DAY OF CHRISTMAS, MY TRUE LOVE SENT TO ME 
THREE FRENCH HENS, 

TWO TURTLE DOVES...AND 

A PARTRIDGE IN A PEAR TREE. 


This program prints the final verse: 


10 PRINT "ON THE TWELFTH DAY OF CHRISTMAS, MY TRUE LOVE SENT TO ME" 
20 PRINT "TWELVE DRUMMERS DRUMMING," 

30 PRINT "ELEVEN PIPERS PIPING," 

40 PRINT "TEN LORDS A-LEAPING,"' 

50 PRINT "NINE LADIES DANCING," 

60 PRINT "EIGHT MAIDS A-MILKING," 

70 PRINT "SEVEN SWANS A-SWIMMING," 

80 PRINT ''SIX GEESE A-LAYING," 

90 PRINT "FIVE GO---OLD RINGS," 

100 PRINT "FOUR CALLING BIRDS," 

110 PRINT "THREE FRENCH HENS," 

120 PRINT "TWO TURTLE DOVES...AND" 

130 PRINT "A PARTRIDGE IN A PEAR TREE." 
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This program prints all twelve verses: 


+>1 DATA FIRST,SECOND, THIRD,FOURTH,FIFTH,SIXTH,SEVENTH,EIGHTH,NINTH 

>>2 DATA TENTH,ELEVENTH, TWELFTH 

+3 FOR V = 1 TO 12 

24 READ WS 

+10 PRINT "ON THE '';W$;'"' DAY OF CHRISTMAS, MY TRUE LOVE SENT TO ME" 
+11 ON V GO TO 130,120,110,100,90,80,70,60,50,40,30,20 


20 PRINT "TWELVE DRUMMERS DRUMMING," 
30 PRINT "ELEVEN PIPERS PIPING," 
40 PRINT ''TEN LORDS A-LEAPING," 


50 PRINT "NINE LADIES DANCING," 
60 PRINT "EIGHT MAID A-MILKING,"' 
70 PRINT "SEVEN SWANS A-SWIMMING," 
80 PRINT "SIX GEESE A-LAYING," 
90 PRINT "FIVE GO---OLD RINGS," 
100 PRINT "FOUR CALLING BIRDS," 
110 PRINT "THREE FRENCH HENS," 
120 PRINT "TWO TURTLE DOVES...AND" 
130 PRINT '"'A PARTRIDGE IN A PEAR TREE." 
>+140 PRINT 
+150 NEXT V 


Lines 1 and 2 teach the computer how to spell the words "FIRST", "SECOND", 
"THIRD", etc. Line 3 makes the computer do lines 4 through 140, twelve times 
(once for each verse). Lines 4 and 10 look at the data and print the top line of 
the verse. Line 11 says: 


If V is 1, go to line 130 (so the computer prints A PARTRIDGE IN A PEAR TREE). 


If V is 2, go to line 120 (so the computer prints TWO TURTLE DOVES...AND A 
PARTRIDGE IN A PEAR TREE). 


If V is 3, go to line 110 (so the computer prints THREE FRENCH HENS, TWO TURTLE 
DOVES...AND A PARTRIDGE IN A PEAR TREE). 


And so on, for each verse. 


ON...GOSUB 
Many computers let you say: 


50 ON N GOSUB 80,100,20,350 
That means: 


If N is 1, GOSUB 80. 
If N is 2, GOSUB 100. 
If N is 3, GOSUB 20. 
If N is 4, GOSUB 350. 


These archaic computers don't understand ON...GOSUB at all: CDC, Univac, 
Texas Instruments, PDP-10 using DEC BASIC (instead of U. Penn. BASIC). 
For IBM computers, you must write the statement like this: 


50 GOSUB 80,100,20,350 ON N 
For HP-2000 computers, you must write the statement like this: 
50 GOSUB 80,100,20,350 OF N 
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CFOS 


HOW THE COMPUTER GRIPES 


If you have an Atari computer, you can make these 21 major errors: 


Error 
number Meaning 


Se ol 


You 
You 
You 
You 
You 
You 
You 
You 
You 
You 
You 
You 
You 
You 
You 
You 
You 
You 
You 
You 
You 


said to use some equipment. But the equipment's power isn't on. 

said to do something. But the computer doesn't have enough memory. 
mentioned’ a number. But the number is too low— or too high. 

mentioned a variable. But your program contains too many variables. 

mentioned a string. But the string is longer than the DIM statement said. 

said READ. But the computer can't find enough DATA to read. 

mentioned a number. But that number ought to be between 1 and 32768. 

tried to input a string. But the INPUT statement said you'd input a number. 
mentioned a subscript. But the subscript is too big or is inconsistent. 

gave a long list of GOSUBs, or requested a long computation. But it's too long. 
said to compute. But the answer is a number that's too large or too small. 

said to go to a different line. But the computer can't find that line. 

said NEXT. But the computer can't find the FOR that matches the NEXT. 

gave a long instruction. But the instruction is too long. 

said NEXT or RETURN. But you erased the corresponding FOR or GOSUB. 
said RETURN. But the computer can't find the GOSUB that matches the RETURN. 
told the computer to do something. But the computer's memory contains an error. 
mentioned a string. But one of the characters in the string is inappropriate. 
said to LOAD a long program. But the computer doesn't have enough memory. 
mentioned a device number. But the number is larger than 7. 

said to LOAD. But the computer can't load that kind of file. 


For example, suppose line 50 says to do something, but the computer doesn't have 
enough memory. The computer will say: 


ERROR- 


2 AT LINE 50 
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TRAPPING 
When you run a program, if the computer encounters an error, the computer will 
want to gripe. But instead of letting the computer gripe, you can force the computer 
to do something different. 
For example, you can tell the computer this: "If you encounter an error in lines 
50-80, don't gripe; instead of griping, do the routine in lines 1000-1070 and then go 
back to line 30 (to try again)." To tell the computer that, insert these lines: 


Radio Shack, PDP-11, PDP-20 Nova, Eclipse Apple 

49 ON ERROR GO TO 1000 49 ON ERR THEN GO TO 1000 49 ONERR GO TO 1000 
81 ON ERROR GO TO O 81 ON ERR THEN STOP 81 POKE 216,0 

999 STOP 999 END 999 END 

1071 RESUME 30 1071 GO TO 30 1071 GO TO 30 


(16 you're using BASIC-PLUS-2, 
omit the space after ON.) 


Lines 49 and 81 say: if an error is encountered between lines 49 and 81, do not gripe; 
instead, go to line 1000. So if an error occurs in lines 50, 60, 70, or 80, the computer 
will go to line 1000, and will do lines 1000, 1010, 1020, 1030, 1040, 1050, 1060, and 
1070. Then the computer will come to line 1071, which makes the computer go back to 
line 30. 

Line 999 marks the end of the main routine, and separates the main routine from 
the subroutine that begins at line 1000. The subroutine is called an error-handling 
routine or an error trap. It ends with the word RESUME or GO TO, instead of RETURN. 

In line 1071, you can change the 30 to any other number you please; you can send 
the computer wherever you wish. Here's how to send the computer back to the line 
that contained the error, and make the computer do that line again: 


Radio Shack, PDP-11, PDP-20 Nova, Eclipse Apple 
49 ON ERROR GO TO 1000 49 ON ERR THEN GO TO 1000 49 ONERR GO TO 1000 
81 ON ERROR GO TO O 81 ON ERR THEN STOP 81 POKE 216,0 
999 STOP 999 END 999 END 

>+1071 RESUME >>1071 RETRY >+1071 RESUME 


Here's how to send the computer back to the line underneath the line that 
contained the error: 


Radio Shack Nova, Eclipse 


49 ON ERROR GO TO 1000 >+49 ON ERR THEN GOSUB 1000 
81 ON ERROR GO TO O 81 ON ERR THEN STOP 
999 STOP 999 END 

+>1071 RESUME NEXT >+1071 RETURN 


To make that work properly, the line that contained the error should consist of 
just one statement (instead of several statements separated by colons). 
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MUSIC 
Atari's computer contains four vofces; each voice can sing. So you can make the 


computer imitate a quartet. 
The four voices are called 0, 1, 2, and 3. This program makes them sing: 


10 SOUND 0,127,10,4 
20 SOUND 1,101,10,4 
30 SOUND 2,84,10,4 
40 SOUND 3,63,10,4 
50 FOR I = 1 TO 400: NEXT I 


60 SOUND 3,56,10,4 
70 FOR I = 1 TO 400: NEXT I 


Line 10 tells voice 0 to sing pitch 127 (which is "middle C"), using tone quality 10 
(which is "pipe organ") and volume 4 (which is "medium-soft"). Line 20 tells voice 1 
to sing pitch 101 (which is "the E above middle C"). Line 30 tells voice 2 to sing 
pitch 84 (which is "the G above middle C"). Line 40 tells voice 3 to sing pitch 63 
(which is "the C above middle C"). So line 10-40 make all four voices sing; you hear 
a chord. Line 50 makes the computer pause for 1 second; while the computer pauses, 
the voices continue to sing the chord; so you hear the chord for 1 second. 

Line 60 tells voice 3 to change its pitch to 56 (which is "the D above the C above 
middle C"); the other voices, unaffected, continue to sing C, E, and G. Line 70 
makes the computer pause, so that you hear the new chord for 1 second. 


Pitch 
The pitch must be a number from 0 to 255, and cannot be a decimal. Here are some 
popular pitches: 


255 is a deep bass note (it's "the C below middle C"; "the C in the bass clef") 
127 is "middle C" ! 
63 is a soprano note ("the C above middle C"; "the C in the treble clef") 
31 is a very high note ("the C above the treble clef") 
15 is very, very high ("the C above the C above the treble clef") 
7 is very, very, very high ("the C above the C above the C above the treble clef") 
3is very, very, very, very high ("a C at the edge of your range of hearing") 
lis very, very, very, very, very high ("a C that only your dog can hear") 
0 is very, very, very, very, very, very high ("maybe not even your dog?") 


To translate traditional music notation into computer pitches, use this chart: 
C C# D D# E F FH G G# A A# B 


bass 255 241 227 214 202 191 180 170 160 151 143 135 
alto 127 120 113 107 101 95 90 84 80 75 71 67 
soprano 63 59 56 53 50 47 44 42 39 37 35 33 
very high Sle 29').28 20) anes. 228 20 oe 18 6 
very, very high 15 14 13 12 il 10 9 8 
very, very, very high 7 6 5 4 

edge of range of hearing 3 2 

dogs only 1 

not even dogs? 0 


(Note to musicians: to make full use of the Atari's range, I've tuned it slightly flat. 
For example, 127, which I'm calling "middle C", is slightly flatter than a piano's 
middle C; in fact, it's closer to the piano's B.) 
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Tone quality 
The tone quality must be 0, 2, 4, 6, 8, 10, 12, or 14. For most music, use 10. The 
14 sounds almost the same as 10. The 12 is a buzz. The other tones are used for 
making the computer imitate guns, bombs, airplanes, trucks, motorcycles, and all 
the other evil joys of life. 


Volume 
The volume must be from 0 to 15. The 0 is silence; 1 is a barely audible whisper; 
4is soft and sweet and is what I recommend for must four-part harmony. The higher 
the volume, the more unpleasant distortion you'll notice— especially if you try harmony. 


My favorite composition 
This program composes exciting music: 


10 FOR I = O TO 255 

20 SOUND 0,1,10,4 

30 SOUND 1,255-1,10,4 

40 SOUND 2,INTCRND(O)*256) ,10,4 
50 NEXT I 


Line 10 says that I increases. As I increases from 0 to 255, the pitch in line 20 goes 
from 0 to 255; the pitch in line 30 goes from 255 to 0; and the pitch in line 40 is random. 
So voice 0 goes from 0 (dogs only) to 255 (bass), which voice 1 goes from 255 (bass) 
to 0 (dogs only), and voice 2 sings random notes. Try it! 
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TAB 
You can make the computer indent: 
10 PRINT TAB(8);"I SAW YOU DRINK" 
The computer will indent 8 spaces, and then print "I SAW YOU DRINK", like this: 
I SAW YOU DRINK 
§ spaces 


(Exception: PET, CBM, IBM, and Atari computers don't understand TAB. On 
very new computer systems, such as the TI-99/4, the TAB(8) means: print at the 
8th position, so that the number of spaces indented is only 7.) 

Here's a fancier example: 


10 PRINT TAB(8);"I SAW YOU DRINK"; TAB(27);"'CHERRY SODA" 


The computer will indent 8 spaces, then print "I SAW YOU DRINK", then indent 
27 characters, then print "CHERRY SODA": 


I SAW YOU DRINK CHERRY SODA 
27 characters 
This program prints a diagonal line: 


10 FOR I = 1 TO 12 
20 PRINT TAB(CI);"'x" 
30 NEXT I 


Line 10 says to do the loop twelve times; so the computer does line 20 repeatedly. 
The first time the computer does line 20, the I is 1, so the computer indents 1 space 
and prints an asterisk: 


* 


The next time, the I is 2, so the computer indents 2 spaces and prints an asterisk: 
* 


The next time, the I is 3, so the computer indents 3 spaces and prints an asterisk: 
* 


Altogether, the program makes the computer print this picture: 
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. Calendar 
Let's make the computer print a calendar for the whole year. To begin, we must 
tell the computer how many days are in each month: 


Month's name Month's length 


January 31 
February 28 or 29 
March 31 
April 30 
May 31 
June 30 
July 31 
August 31 
September 30 
October 31 
November 30 
December 31 


That list becomes our data: 


10 DATA JANUARY ,31,FEBRUARY,28,MARCH,31,APRIL,30 
20 DATA MAY,31,JUNE,30,JULY,31,AUGUST,31 
30 DATA SEPTEMBER,30,0CTOBER,31,NOVEMBER,30,DECEMBER,31 


(If the year is a leap year, change line 10.) 
To make the computer look at that data, tell the computer to READ: 


40 READ N$,L 


That makes the computer read a month's Name and Length. 
To read a// the data, the computer should do line 40 twelve times. So put line 40 
inside a loop, like this: 


+39 FOR M = 1 TO 12 
40 READ N$,L 
>>100 NEXT M 
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This program prints a crude calendar: 
Here are the months and their 10 DATA JANUARY,31,FEBRUARY,28,MARCH,31,APRIL,30 


kLengths. 20 DATA MAY,31,JUNE,30,JULY,31,AUGUST, 31 
30 DATA SEPTEMBER,30,0CTOBER, 31 ,NOVEMBER,30,DECEMBER, 31 
For each of those 12 months, 39 FOR M = 1 TO 12 
nead the month's Name and Length, 40 READ N$,L 
print the Name, 50 PRINT N$ 
print alk the days of the month, 60 FORD =1T0L 
70 PRINT D; 
80 NEXT D 
and press the retuwin key tuice 90 PRINT 
at the end of the month. 91 PRINT 
100 NEXT M 
The computer will print a calendar beginning like this: 
JANUARY 


Teo Geo. (Olt TO I LOGS 1 dehy, lS tee tek aa On Nar LOM Mima 
CUY 22) SCSuR chee tS cone eee Cmca me 


FEBRUARY 
120 304 SOR SiO enO he eal cI 3 es14) SS4 TORR SISP SORE ce 
Cl 2Otre oe eataeomcOUl Lenco 


MARCH 
1 pied 485? 4st OEP RS Baoan R IA 2a se tee Se Ose Teds Toure cy 
Cl, ce7 co Coe 2ommcOu ec (escotte sau | 


Although the computer's printed the right numbers for each month, the numbers 
are in the wrong places. Let's make the computer print at most 7 numbers in each 
row, So each is a week. 

To print the numbers in the right places, use TAB: 


70 PRINT TAB(T);D; 


Line 70 will make the computer print each day in the right position...if we define T 
correctly. But how should we define T? 

For Sunday, let's make T be 2 (so that Sunday is indented 2 spaces); for Monday, 
let's make T be 10 (so that Monday is indented 10 characters); Tuesday, 18; 
Wednesday, 26; Thursday, 34; Friday, 42, and Saturday, 50. So whenever a 
day has been printed, T should normally increase by 8, for the next day: 


Gh T=T+8 
Saturday is the last day of the week; after Saturday, we must begin a new week. 
So if T has passed Saturday (which is 50), we want T to become 2 (for Sunday); 


and if there are more days left in the month, we want the computer to press the 
return Key (to start a new week): 


rar IF T>50 THEN T=2: IF D<L THEN PRINT 
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Here's the complete calendar program for 1981: 


>>] PRINT "CALENDAR FOR 1981" 
++2 PRINT 
++3 T=34 
10 DATA JANUARY,31,FEBRUARY,28,MARCH,31,APRIL,30 
20 DATA MAY,31,JUNE,30,JULY,31,AUGUST,31 
30 DATA SEPTEMBER, 30,0CTOBER,31,NOVEMBER,30,DECEMBER, 31 
39 FOR M = 1 TO 12 


40 READ NS$,L 
50 PRINT N$ 
>>51 PRINT " SUN MON TUE WED THU FRI SAT" 
60 FOR D = 1.70 L 
70 PRINT TAB(T);D; 
ial T=Tt8 
te IF T>50 THEN T=2: IF D<L THEN PRINT 
80 NEXT D 
90 PRINT 
91 PRINT 
100 NEXT M 


Line 1 prints the heading. Line 2 puts a blank line underneath the heading. 

Since 1981 begins on a Thursday, line 3 tells the computer to start T at 34 (which 
is the indentation for Thursday). Line 51 prints the heading for each month; when 
you type that line, put 3 blank spaces before SUN, put 5 blank spaces between 
SUN and MON, put 5 blank spaces between MON and TUE, etc. The computer will 
print a calendar beginning like this: 


CALENDAR FOR 1981 


JANUARY 
SUN MON TUE WED THU FRI SAT 
1 2 S) 
4 B) 6 rd 8 9 10 
a 12 13 14 ie) 16 1% 
18 19 20 21 22 25 24 
25 26 (ale 28 (oe) 30 ot 
FEBRUARY 
SUN MON TUE WED THU FRI SAT 
1 2 3 & 5) 6 ¢ 
8 7 10 Aa pie 13 14 
15 16 WG 18 hg 20 21 
ee 25 24 25 26 ot 28 
MARCH 
SUN MON TUE WED THU FRI SAT 
1 2 3 4 p) 6 ¢ 
8 o 10 11 12 ai 14 
15 16 17 18 wD 20 21 
cad Zo 24 ae) 26 a 28 
29 30 S14 


If you want a different year, change lines 1 and 3; and if you want a leap year, 
change line 10. If you want the calendar to be taller, insert extra blank lines; to 
do that, replace "PRINT" by "PRINT: PRINT: PRINT" in lines 2, 72, 90, and 91: 


2 PRINT: PRINT: PRINT 


he IF T>50 THEN T=2: IF D<L THEN PRINT: PRINT: PRINT 
90 PRINT: PRINT: PRINT 
91 PRINT: PRINT: PRINT 


If you want the calendar to look wider (or narrower), change the indentation for 
Sunday, Monday, Tuesday, etc., by changing the T numbers (in lines 3, 51, 71, and 72). 
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PIXELS 
Most microcomputers (such as Radio Shack, Apple, and Atari) use a television 
screen instead of paper; and the screen is divided into thousands of little rectangles, 
called p/xe/s. The pixel in the upper-left corner of the screen is called pixel 0,0; 
just to the right of it is pixel 1,0; then comes pixel 2,0; etc. Underneath pixel 0,0 is 
pixel 0,1. Here are the positions of the pixels: 


pixel 0,0 pixel 1,0 pixel 2,0 pixel 3,0 pixel 4,0 pixel 5,0 etc. 
pixel 0,1. “pixel 1,1 pixel:2;1 ‘pixel 3,1] pixelsd) lI - pixel’ so, Iyh etc. 
pixel 0,2  pixel1,2 pixel 2,2: pixel 3,2) pixel 472. pixel-o,2  Letc: 
pixel 0,3 pixel 1,3 pixel 2,3 pixel 3,3 pixel 4,3 pixel 5,3 etc. 


Each pixel's name consists of two numbers. The first number is called the X coordinate; 
the second number is called the Y coordinate. For example, if you're talking about 
pixel 5,3, its X coordinate is 5, and its Y coordinate is 3. The X coordinate tells how 
far to the right the pixel is; the Y coordinate tells how far down; so the pixel 5,3 is 
the pixel that's 5 to the right and 3 down. 

So on the computer, the Y coordinate measures how far down. If you had the 
misfortune to read an old-fashioned math textbook (in which the Y coordinate meas..ed 
how far up), you'll have to reverse your thinking! 


How many pixels are on the screen? If you're using high resolution, the screen 
contains many pixels; each pixel is tiny. If you're using /ow resolution, the 


screen contains few pixels; each pixel is huge. You can choose either low resolution 
or high resolution. Here's how, on various computers.... 


Radio Shack 
Your program's top line should say: 


10 CLS 


It makes all the pixels become black. 
High resolution. In high resolution, the X coordinate can be from 0 to 127; 
the Y coordinate can be from 0 to 47. This program makes pixel 97,43 blink: 


Make akk pixels become black. 10 CLS 
Make pixek 97,43 become white. 20 SET (97,43) 


Pause 1 Second. 30 FOR I = 1 TO 400: NEXT 
Make pixek 97,43 become bkack. 40 RESET (97,43) 

Pause 1 second. 50 FOR I = 1 TO 400: NEXT 
Repeat the blinking. 60 GO TO 20 


Low resolution. In low resolution, the X coordinate must be from 0 to 63; the 
Y coordinate must be from 0 to 15. This program makes the computer print the word 
JAR, so that the J is at pixel 25,13, and so that the A is at the next pixel (26,13), 
and so that the R is at the next pixel (27,13): 


Make akk pixeks become black. TCs 
Paint JAR, beginning at pixel 25,13. 20 PRINT @ 25413 *64, "JAR"; 


This program makes pixel 5,7 become a blinking F: 


Make all pixels become black. 10 CLS 

Punt F at pixel 5) 74 2OXPRINT oo, 5+7%64, “FOS 
Pause 1 second. 30 FOR I = 1 TO 400: NEXT 
Print a bkack bkank space at pixel 5,7. 40 PRINT @ 5+7 *64, "'"'; 
Pause 1 second. 50 FOR I = 1 TO 400: NEXT 
Repeat the blinking. 60 GO TO 20 

This program makes pixel 61,14 become a white rectangle: 

Make ak pixels become bkack. LOFELS 


Make pixek 61,14 become entirely white. 20 PRINT @ 61414 *64, CHRS(191); 
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Apple 
On the Apple, the four most popular modes are these.... 
Text. In text mode, the X coordinate must be from 0 to 39; the Y coordinate 
must be from 0 to 23. Your program's top line should say: 


10 HOME 


It makes all pixels become black. This program prints the word JAR, so that the 
J is at pixel 26,19, and so that the A is at the next pixel (27,19), and so that 
the R is at the next pixel (28,19): 


Make ak pixels become black. 10 HOME | 
Print JAR, beginning at pixel 26,19. 20 HTAB 1+26: VTAB 1419: PRINT "JAR"; 


Low-resolution graphics. In low-resolution graphics mode, the X coordinate 
must be from 0 to 39; the Y coordinate must be from 0 to 47. Your program's top 
line must say: 


10 GR: POKE 49234,0 
It tells the computer to use low-resolution graphics, and makes all pixels become 


black. After saying that, you can change the color of each pixel. You can use 
these colors: 


0. black 8. brown 

1. magenta (bluish red) 9. orange 

2. dark blue 10. gray 

3. lavender (light purple) 11. pink 

4, dark green 12. green 

o. gray 13. yellow 

6. blue 14. aqua (light greenish blue) 

7. light blue 15. white 

Example: 

Make ak pixels become back. 10 GR: POKE 49234,0 

Make prixek 31,37 become pink. 20 COLOR=11: PLOT 31,37 
Make pixels 5,9 and 17,21 become yellow. 30 COLOR=13: PLOT 5,9: PLOT 17,21 
Draw a green horizontak Line from 4,19 to 8,19. 40 COLOR=12: HLIN 4,8 AT 19 
Draw a bkue vertical Line from 4,20 to 4,30. 50 COLOR=6: VLIN 20,30 AT 4 
Pause, to Let the human admire the picture. 60 FOR I = 1 TO 1000: NEXT 
Switch to text mode. 70 TEXT 


Low-resolution split-screen. This resembles low-resolution graphics mode. 
Here are the differences: 


1. In line 10, omit the POKE statement; line 10 should say just GR. 

2. The Y coordinate must be from 0 to 39. 

3. Underneath the part of the screen that's composed of pixels, you can write 4 
lines of text, by using an ordinary PRINT statement. 


High-resolution graphics. Before using this mode, make sure your computer 
contains at least "32K of RAM memory". In this mode, the X coordinate can be 
from 0 to 279; the Y coordinate can be from 0 to 191. Your program's top line 
must say: 


10 HGR2 


It tells the computer to use high-resolution graphics, and makes all pixels become 
black. After saying that, you can change the color of each pixel. You can use 
these colors: 


0. black 4. black 
1. green 3. orange 
2. violet 6. blue 
3. usually blue, if X coordinate even; 7. white 


usually green, if X coordinate odd; 
white, if adjacent pixel plotted also 
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Example: 

Make akl pixels become back. 10 HGR2 

Make pixek 250,140 become white. 20 HCOLOR=7: HPLOT 250,140 

Draw a green Line fom 70,90 to 180,114. 30 HCOLOR=1: HPLOT 70,90 TO 180,114 
Continue that green Line, to 219,7. 40 HPLOT TO 219,7 

Pause, to Let the human admire the picture. 50 FOR I = 1 TO 1000: NEXT 

Switch to text mode. 60 TEXT 


Atari 
On Atari's computer, you can use many graphics modes, which are numbered from 0 to 24. 
Your program's top line must say which graphics mode to use. For example, if you wish 
to use graphics mode 19, your program's top line must say: 


10 GRAPHICS 19 


Here's how to use each popular graphics mode.... 

Mode 19. In this mode, the X coordinate must be from 0 to 39, and the Y coordinate 
must be from 0 to 23. Initially, the entire screen is very, very dark gray (i.e., black). 
You can use these colors: 


COLOR O %& bkack. 

COLOR 1 44 medium-Light orange. 
COLOR 2 is Light green. 

COLOR 3 44 dark bhue-turquorse. 


Example: 


Use graphics mode 19. Make the entine screen black. 10 GRAPHICS 19 

Make pixel 27,13 and pixel 25,19 be very Light green. 20 COLOR 2: PLOT 27,13: PLOT 25,19 
Draw a medium-Light onange Line from 20,17 to 5,2. 30 COLOR 1: PLOT 20,17: DRAWTO 5,2 
Pause, to Let the human admire the picture. 40 GO TO 40 


To abort that program, and to stop using graphics mode 19, press the SYSTEM RESET 
button. 

Mode 21. This resembles mode 19. But the X coordinate can go from 0 to 79, and the 
Y coordinate can go from 0 to 47. 

Mode 23. This resembles mode 19. But the X coordinate can go from 0 to 159, and the 
Y coordinate can go from 0 to 95. 

Mode 20. This resembles mode 21, but lacks COLOR 2 and COLOR 3, and therefore 
consumes less memory. 

Mode 22. This resembles mode 23, but lacks COLOR 2 and COLOR 3, and therefore 
consumes less memory. 

Mode 24. To use this mode, you must buy at least 16K of RAM memory. In this mode, 
the X coordinate can go from 0 to 319; the Y coordinate can go from 0 to 191. Initially, 
the entire screen is dark blue-turquoise. You can use these colors: 


COLOR O %% dark bkue-turquotse. 
COLOR 1 i4 Light bkue-turquorise. 


Example: 
Use graphics mode 24. Make the screen dark. 10 GRAPHICS 24 
Draw a Light Line from 20,7 to 302,146. 20 COLOR 1: PLOT 20,7: DRAWTO 302,146 


Pause, to Let the human admire the picture. 30 GO TO 30 


il ae: that program, and to stop using graphics mode 24, press the SYSTEM RESET 
utton 
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Mode 0. This is the "normal" mode: it's the mode you find yourself in, whenever 
you press SYSTEM RESET, and whenever you aren't thinking about graphics. In 
this mode, the X coordinate can go from 0 to 39, and the Y coordinate can go from 
0 to 23. Initially, the entire screen is dark greenish-blue— except for the screen's 
border, which is black. Example: 


Use graphics mode 0. Make screen dark, border black. 10 GRAPHICS O 
Beginning at pixek 14,9, print the word JAR. 20 POSITION 14,9: PRINT "JAR"; 
Pause, to Let the human admire At. 30 GO TO 30 


That program prints the word JAR, so that the J is at pixel 14,9, and so that the A 
is at the next pixel (15,9), and so that the R is at the next pixel (16,9). The word 
JAR is light greenish-blue. 

Mode 17. In this mode, the X coordinate must be from 0 to 19, and the Y coordinate 
must be from 0 to 23. Initially, the entire screen is black. Example: 


Use graphics mode 17. Make the entine screen black. 10 GRAPHICS 17 
Beginning at pixel 14,9, print the word JAR. 20 POSITION 14,9: PRINT#H6; "JAR"; 
Pause, to Let the human admire Xt. 30 GO TO 30 


That program prints the word JAR, so that the J is at pixel 14,9, and so that the A 
is at the next pixel (15,9), and so that the R is at the next pixel (16,9). The word 
JAR is medium-light orange. If you try to print a sma// (lower-case) letter (by pressing 
the LOWR Key), the computer will print it capitalized instead, and will make it light 
green. If you try to print a dark-on-light capital letter (by pressing the J\ key), the 
computer will instead make it dark blue-turquoise on a black background. If you try to 
print a dark-on-light small! letter (by pressing the /\. and LOWR keys), the computer 
will instead make it a medium-dark red capital on a black background. 
Mode 18. This resembles mode 17. But the Y coordinate must go from 0 to 11. 
Split-screen modes. You can make the bottom part of the screen be in mode 0, 
and the top part of the screen be in a different mode. Here's how: 


Graphics mode Meaning 


GRAPHICS 1 The screen's bottom is in mode 0; the screen's top is in mode 17. 
GRAPHICS 2 The screen's bottom is in mode 0; the screen's top is in mode 18. 
GRAPHICS 3 The screen's bottom is in mode 0; the screen's top is in mode 19. 
ero. 

GRAPHICS 8 The screen's bottom is in mode 0; the screen's top is in mode 24. 


In those split-screen modes, the bottom sixth of the screen is in mode 0; the top 
five-sixths are in a mode from 17 to 24. The bottom sixth, which is in mode 0, 
contains just 4 lines of text. To create that text, you can say PRINT, but you can't 
say POSITION: in split-screen mode, the bottom sixth doesn't understand POSITION. 
The top five-sixths, which are in a mode from 17 to 24, have fewer Y coordinates 
than if the whole screen were devoted to that mode: a sixth of the Y coordinates are 


missing. 

Changing the colors. You've seen that Atari's computer normally uses these colors: 
Color Major use 
black mode 19's "color 0"; mode 17's background; mode 0's border 
medium-light orange mode 19's "color 1"; mode 17 
light green mode 19's "color 2"; mode 17 


dark blue-turquoise mode 19's "color 3"; mode 17; mode 0; mode 24's "color 0" 
medium-dark red mode 17 
light blue-turquoise mode 17; mode 0; mode 24's "color 1" 
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Each of those colors has a special reg/ster number: 


Color Register number 
black + 
medium-light orange 0 
light green 1 
dark blue-turquoise 2 
medium-dark red 3 


light blue-turquoise 13 


Atari also uses hue and luminance numbers: 


Hue Number Luminance Number 
eray 0 very, very dark 0 
gold 1 very dark 2 
orange 2 dark 4 
red-orange 3 medium-dark 6 
red 4 medium-light 8 
red-purple 3) light 10 
purple 6 very light 12 
blue-purple 7 very, very light 14 
blue 8 
blue-turquoise 9 
turquoise 10 
green-turquoise 11 
green 12 
green-russet 13 
russet-green 14 
russet 15 
If you say—— 


SETCOLOR 4,1,10 
negister hue Luminance 


the computer will replace black (which is register 4) by a gold (hue 1) that's light 
(luminance 10). Everything on the screen that was black suddenly becomes light gold; 
and whenever you tell the computer to do further drawing in black, it will draw light 
gold instead. To make the computer stop turning black into light gold, give a 
SETCOLOR command that contradicts it, or hit the SYSTEM RESET button, or change 
to a different GRAPHICS mode. 

Here's another example. If you say— 


SETCOLOR 2,4,6 
negister hue Luminance 


the computer will replace dark blue-turquoise (which is register 2) by a red (hue 4) 
that's medium-dark. Everything on the screen that was dark blue-turquoise suddenly 
becomes medium-dark red. 

In a typical Atari graphics program, line 10 says GRAPHICS and gives the GRAPHICS 
mode; line 20 says SETCOLOR and changes a boring register color (such as black) to a 
more interesting color (such as light gold); lines 30, 40, and 50 contain additional 
SETCOLOR statements. 

Register 13 automatically has the same luminence as register 1, and the same hue as 
register 2. (Since register 1's luminence is normally "light", and since register 2's hue 
is normally "blue-turquoise", register 13 is normally "light blue-turquoise".) To change 
register 13's color from light blue-turquoise to a different color, change registers 1 and 
2, by saying SETCOLOR 1 and SETCOLOR 2. Do not try to say SETCOLOR 1}. 

In graphics mode 24, the pixels are very tiny and hard to see. To make them easier 
to see, make them black on a white background, by saying: 


10 GRAPHICS 24 


20 SETCOLOR 2,0,14 changes "dark blue-turquotse" to "very, very Light gray" (white) 
30 SETCOLOR 1,0,0 changes register 13 to bkack 
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fundamentale 


CALCULATIONS 
The computer_uses these symbols: 
EXPLANATION 


12 multiplicatio 


Warning: 4§ your keyboard contains the symbok "A", 


2 division type 4t instead of "+". For example, on Apple, 
49 exponent Atart, Decwnriter, and Lear Siegler keyboards, 
SQR(9) 3 SQuare Root type "A" instead of "4", 


The symbols +, -, *, /, and ¢ are called operations. The symbol SQR is called a 
function; the parentheses around the 9 are necessary. 

For example, to find the square root of 64, type this: 

NEW JOE 

1 PRINT SQR(64) 

2 END 

RUN 

The computer will print 8. 

To solve a problem, the computer uses the three-step process taught in 
algebra and the "new math"; so if you never took algebra or new math, or forgot 
them both, you'll find the computer's answers surprising. For example, suppose 
you ask the computer to figure out 70-3+2+8/2*3. The computer will not begin by 
subtracting 3 from 70. Instead, it will begin by squaring 3. Here's the 
three-step 


Poe: (SRS AT OES Sees el er eieige lols, o/s Lene: e lelwheve tule «ta trie ne teks 


get rid of +. Now the problem is...... 70- 9 +8/2%3 


Step 2: get rid of * and /. Now the problem is G07) Geter, 
get rid of + and -. The answer is..... Be 

In each step, it looks from left to right. For example, in step 2, it sees / and 

gets rid of it before it sees *. | 


CONTRASTS 


The computer's notation is similar to the one used in arithmetic and algebra, 


but here are some contrasts: 
TRADITIONAL NOTATION COMPUTER NOTATION EXPLANATION 


a STARS 
n+m) 5*(N+M) asterisk. 
ng ae Me Gaara ay 


atb 
c (A+B) /C Put the numerator in parentheses, 
= if it contains addition or subtractio 
at (3-20) /6 bps 
5/(3+X) Put the denominator in parentheses, 
nee if it contains addition, subtraction, 
5a : 1. 
5*At3/(4*B) 
4b . / 
reins Xt (N+2) 
yee Xt (3*N) Put the exponent in parentheses, 
if it contains an operation. 
See 54(2/3) P 
2? 240344 
9% 9+1/2 Put a plus sign between the whole part 
andethe traction part. 


Put a mixed number in parentheses, 


wn 


multiplication, or division. 
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INPUT 
This program finds the square of 7: 
10 X=7 
20 PRINT Xt2 
30 END 


When you type RUN, line 10 says X is 7, so line 20 prints 49. 
That program finds the square of just one number, 7. The next program is 
more powerful; it finds the square of any number: 
10 INPUT X 
20 PRINT Xt2 
30 END 


When you type RUN, line 10 makes the computer print a question mark and wait for 
you_to type any number. The number you type will be X. For example, suppose you 


type 8 after the question mark, like this: 

2 8 

When you press the carriage return after the 8, that 8 will be X. Line 20 prints 
its square, which is 64. 

Altogether, the run looks like this; I've underlined the part typed by you: 
RUN 
2? 8 
64 

The number you put it, 8, is called the imput. The number the computer put 
out, 64, is called the output. Input and Output are collectively called I/O. 

If you want to square 1] instead of 8, type 11 after the question mark 
instead of 8. If you want to square several numbers, type RUN several times, 
like this: 

RUN 
7 iL 
pe 
RUN 
7 30 
900 
RUN 
PR 250% 
4.0401 

You can program the computer to do geometry: 

10 PRINT "WHAT IS THE LENGTH OF YOUR RECTANGLE?" 


20 INPUT L 

30 PRINT "WHAT IS THE WIDTH?" 

40 INPUT W Warning: in Line 50, some computers require a 

50 PRINT "THE AREA IS"L*W semicolon between "THE AREA IS" and L*W, Like this: 
60 END 50 PRINT "THE AREA IS"; L*W 


Line 10 makes the computer print WHAT IS THE LENGTH OF YOUR RECTANGLE? Line 20 
makes the computer print a question mark and wait for you to type the number L. 
Suppose you type 3. Line 30 makes the computer print WHAT IS THE WIDTH? Line 40 
makes the computer print a question mark and wait for you to type the number W. 
Suppose you type 4. Line 50 prints "THE AREA IS" then L*W, like this: 

THE AREA IS 12 

Altogether, the run looks like this: 


AT IS THE LENGTH OF YOUR RECTANGLE? 
73 

HAT IS THE WIDTH? 
Cates 

THE AREA IS 12 
Each time you type RUN, the computer will compute the area of another rectangle. 
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Now that we've taught the computer how to find area, let's progress to volume: 
10 PRINT ‘WHAT ARE THE LENGTH, WIDTH, AND HEIGHT OF YOUR BOX?" 
20 INPUT L,W,H 
30 PRINT "THE VOLUME IS"L*W*H 


40 END 

Line 10 makes the computer print WHAT ARE THE LENGTH, WIDTH, AND HEIGHT OF YOUR BOX? 
Line 20 makes the computer print a question m and wait for input _thre 
numbers, separated by commas. For example, suppose you type: 

205556 


Line 30 makes the computer print: 
THE VOLUME IS 600 
If a circle has radius R, then its circumference is 27R, and its area is ™R2. 
This program computes them: 
10 PRINT "WHAT IS THE RADIUS OF YOUR CIRCLE?" 
20 INPUT R 
30 P=3.14159265 
40 PRINT "THE CIRCUMFERENCE IS"2*P*R 
50 PRINT ''THE AREA IS''P*Rt2 
60 END 
Some people complain the computer reduces them to numbers. That's not 
necessary; the computer can greet you personally: 
10 PRINT "WHAT IS YOUR NAME?" 


20 INPUT NS 
30 PRINT "HELLO ''N$ 
40 END 


Line 10 makes the computer print WHAT IS YOUR NAME? Line 20 makes the computer 
print a question mark and wait for you to type a string. If you type GEORGE, line 
30 makes the computer reply: 


HELLO GEORGE 
In line 30, the space after HELLO is important; if you omit it, the computer 


WillAprine: 
HELLOGEORGE 
The space must be within the quotation marks; this is incorrect: 
30 PRINT "HELLO" NS 

In that program, when the computer asks you for your name, you can usually 
type it without quotation marks, like this: 
WHAT IS YOUR NAME? 
2? GEORGE 
But if the string you input contains a comma, you must use quotation marks. For 
example, if your name is HAPPY, JOLLY SANTA CLAUS, which contains a comma, you must 
use quotation marks: 
WHAT IS YOUR NAME? 
gv be Y SANTA CLAUS" 
If you omit the quotation marks, the computer will think your name is just HAPPY, 
and that JOLLY SANTA CLAUS is a different string. 

Whatever you input must be a constant. In computer jargon, a constant means 
a quantity expressed simply, without operations (addition, subtraction, 
multiplication, division, or exponents), functions, or variables: 


CONSTANT NOT A CONSTANT 

(CAN BE INPUT) (CANNOT BE INPUT) 

8 7+1 (uses addition) 

66666667 243 (uses division) 

9.5 9+1/2 (uses addition and division) 

3E8 3*10+8 (uses multiplication and exponents) 
-5 0-5 (uses subtraction) 

1.4142136 SQR(2) (uses a function) 

"DRINK IT" DS (uses a variable) 


For example, if you try to input 7+l instead of 8, the computer will either gripe 
or think you mean just 7. 
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DISKS 

Warning: on PDP-10, PDP-11, Dartmouth, and CDC computers, if you try to type 
SAVE, the computer might say: 
DUPLICATE PROGRAM NAME. HARRY ALREADY SAVED. REPLACE OR RENAME. 
That means the computer refuses to save your new HARRY, because a different HARRY 
was saved already. Type: 
REPLACE 
That makes the computer replace the disk's HARRY by the newer HARRY. Or, if you 
prefer, instead of REPLACE you can type this: 


PDP-10, PDP-11, DARTMOUTH CDC 
RENAME FRED RENAME , FRED=HARRY 
SAVE SAVE 


That means your new HARRY is renamed FRED and then gay ecs so the disk has both FRED 
and the original HARRY. 


FANCY PRINTING 
10 PRINT -7"EAT''3"DONUTS" 
20 END 
The computer will print -7, EAT, 3, and DONUT on the same line, like this: 
-7 EAT 3 DONUTS 


The computer prints a blank space after every number, so there is a blank space 


after -7 and after 3. (Some computers print several blank spaces after each number.) 


The computer prints a blank space before every number that's positive, so there is 


a blank space before 3 but not before -7. 


10 PRINT 97/9 

20 END 

Line 10 tells the computer to divide 97 by 9 and print the answer. But the answer 
is 10.77777777777777777777777777..., and the computer can't print infinitely many 


sevens. When the computer prints a number, it usually prints just the first 6 
significant digits. So it prints: 
LO 37778 
Notice that it rounds the last digit. 
The computer prints the complete number, instead of just the first 6 significant 


digits, if the number is an integer requiring no more than 8 digits. 


10 PRINT ''MARY"'; 

20 PRINT "BONES" 

30 END 

A_semicolon makes the computer print the next item on the same line. The 
computer will print MARY, and will print BONES on the same line, like this: 
MARYBONES 


10 PRINT "UN"; "DER"; 

20 PRINT "WATER" 

30 END 

The computer will print UN, will print DER on the same line, and will print WATER 
on the same line also, like this: 

UNDERWATER 

The semicolon between "UN" and "DER" doesn't make any difference If you omit the 
semicolon after 'DER', the computer will print: 

UNDER 

WATER 
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10 PRINT -10;-5;2 

20 END 

The computer will print -10, will print -5 on the same line, and will print 2 on 
the same line also, like this: 

irate 

The computer prints a blank space after every number, so there is a blank space 
after -10, and after -5, and after 2 (which you can't see). Since 2 is positive, 
it prints an additional blank space before 2. In that program, the semicolons are 
important; if you omit them, the computer will compute -10-52 and print: 

-62 

If you replace the semicolons by blank spaces, the computer will print -62, since 
it ignores blank spaces. 


10 M=5 
20 E=3 
30 PRINT M;E 
40 END 
The computer will print: 
spats} 
The semicolon is important; if you omit it, the computer will gripe, since it 
doesn't know what ME is. 
Here's part of a program: 
10 PRINT "WHAT IS YOUR NAME?" 
20 INPUT NS 
Line 10 makes the computer print WHAT IS YOUR NAME? Line 20 makes the computer 
print a question mark on the next line, and wait for input. If the user inputs JOE, 
the run will look like this: 
WHAT IS YOUR NAME? 
2 JOE 
Here's an improvement: 
10 PRINT ''WHAT IS YOUR NAME"; 
20 INPUT NS 
Line 10 makes the computer print WHAT IS YOUR NAME, without a question mark. Line 
20 makes the computer print the question mark; the semicolon at the end of line 10 
makes the question mark appear after NAME. If the user inputs JOE, the run will 
look like this: 
WHAT IS YOUR NAME? JOE 
Here's how much you can fit on a line: 


COMPUTER AMOUNT 

Radio Shack You can print 64 characters on a line. The 64 positions are numbered 
from 0 to 63. 

PDP You can print 72 characters on a line. The 72 positions are numbered 
from. O..to./ 1. 

old-style You can print 75 characters on a line. The 75 positions are numbered 


from 0 to 74, 
This program tells the computer to skip to position 7, print JACK, then skip 
to position 42, and print JOE. 
10 PRINT TAB(7)"JACK"TAB(42)" JOE" 
20 END 
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This program prints a parabola: 
10 FOR X = -8 TO 8 


20 PRINT TAB(Xt2)"*" 
30 NEXT X 
40 END 


Line 10 says X will be every number from -8 to 8; to begin, X will be -8. Line 20 
says to tab to position 64 and print a star, like this: 

* 
Line 30 says to do the same thing over again, for X=-7; so the computer tabs to 
position 49 and prints a star, like this: 


* 
The computer will continue printing stars; here's the final picture: 
* 
* 
# 
* 
* 
* 
* 
* 
% 
* 
* 
* 
# 
* 
* 
* 


If you turn the paper 90° counterclockwise, you'll see a graph of Y=X+2. If you 
change line 10 to say "FOR X = -12 TO 12", line 20 will tell the computer to tab 


144 spaces, which is impossible. You must scale down all graphs, so that they 
fit on the screen or the paper. 


READ...DATA 

Whenever the computer sees the word READ, it hunts for DATA. 
10 READ X$ 
20 READ C$ 
30 READ F$ 
40 READ X$ 
50 PRINT X$;F$ 
60 DATA “WE', DISLIKE’ ,"HER", "FAT" 
70 END 
Line 10 contains the word READ, so the computer hunts for DATA. It reads the first 
datum, "WE", and calls it X$. So X$ is "WE". Line 20 says C$ is the next datum, 
"DISLIKE". Line 30 says F$ is the next datum, "HER". Line 40 says X$ is the next 
datum, ° FAT.) “Line 50 prints: 
FATHER 

That program can be shortened. If a datum is a string that begins with a 
letter and contains no apostrophe, you can omit its quotation marks: 
60 DATA WE,DISLIKE ,HER, FAT 
Lines 10-40 can be combined into a single line: 
10 READ X$,C$,F$,X$ 

You don't have to put all the data on the same line; this is okay: 
60 DATA WE,DISLIKE 
61 DATA HER,FAT 
Each line of data should begin with the word DATA. 

The data can come anywhere in the program, but most programmers put it at the 
end, just before the END line 
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Suppose Joan, Sam, Robin, and Freddy send you presents. This program writes 
a thank-you note to each of them: 


10 READ NS 
20 PRINT "DEAR "NS"," 
30 PRINT " THANK YOU SO MUCH FOR THE PRESENT." 


40 PRINT "ACTUALLY, "NS$'', IT'S EXACTLY WHAT I HAD HOPED TO GET." 
50 PRINT "IT'S NICE TO HAVE A REAL FRIEND LIKE YOU, "NS''." 


60 PRINT 

70 PRINT 

80 GO TO 10 

90 DATA JOAN ,SAM, ROBIN, FREDDY 

100 END 

Line 10 reads the first datum, JOAN; so N$ is JOAN. Line 20 prints "DEAR " then 
JOAN then a comma. Line 30 prints " THANK YOU SO MUCH FOR THE PRESENT." Line 


40 prints "ACTUALLY, " then JOAN then ", IT'S EXACTLY WHAT I HAD HOPED TO GET." 
Line 50 prints "IT'S NICE TO HAVE A REAL FRIEND LIKE YOU," then JOAN then a period. 
Altogether, the computer prints this letter: 
DEAR JOAN, 
THANK YOU SO MUCH FOR THE PRESENT. 

ACTUALLY, JOAN, IT'S EXACTLY WHAT I HAD HOPED TO GET 
IT'S NICE TO HAVE A REAL FRIEND LIKE YOU, JOAN. 
Lines 60 and 70 make the computer leave some blank space, for your signature. 
Line 80 makes the computer go back and do it again; but this time line 10 reads 
SAM instead of JOAN. The computer types similar letters to Joan, Sam, Robin, and 
Freddy. Then it runs out of names to read and types: 

OUT OF DATA IN LINE 10 


% % & 


Suppose you want to square many numbers. This program does the job: 
10 INPUT X 
20 PRINT Xt2 
99 END 
But it requires you to type RUN every time vou want to square a new number. If 
you want to square a hundred numbers, you iave to tvpe RUN a hundred times, which 
is very annoying. 

This program is an improvement: 
10 INPUT X 
20 PRINT Xt2 

+30 GO TO 10 

99 END 
Now you have to type RUN only once. But the program is still slow: when the 
computer encounters the INPUT statement, it prints a question mark on your terminal, 
then switches its attention to the other terminals; when you've inputted the 
number and pressed the carriage return, you must wait a few seconds for the 
computer to return its attention to you. If you are inputting a hundred numbers, 
the wait after each input is annoying. 


This program runs more quickly, with no waiting: 
710 READ X 


20 PRINT X*t2 

30 GO TO 10 
+40 DATA 42,7.35,100.:,etc. 

99 END 

In line 40, type the numbers you want to square. If they don't all fit in one line, 
continue with 

50 DATA etc. 

60 DATA etc. 

70 DATA etc. 

In addition to its lightning speed, this program has another nice feature: if you 
want a second copy of the results, just type RUN again. For the program that used 
INPUT, if you wanted a second copy, you'd have to type not only RUN but also the 
hundred numbers again. 
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To make the computer print the answers in the form of a table, change line 20 


10 READ X 
+20 PRINT X,X+2 

30 GO TO 10 

40 DATA 42,7.35,100.1l,etc. 
50 DATA etc. 

60 DATA etc. 

70 DATA etc. 

99 END 

The computer will print: 

42 1764 

Tied 54.0225 

100.1 10020. 


Data, like input, must be constants. For example, you can say— 
80 DATA .66666667 


—but not: 
80 DATA 2/3 


FUNCTIONS 


SQR is just one of the many functions you can use. 
If you understand trigonometry and know what a radian is, you can use these 
functions: 
ee SYMBOL MEANING 
aes the COSine of X radians 
TAN(X) the TANgent of X radians 
ATN(X) the ArcTaNgent of X, in radians; in other words, the number 
whose tangent is X 
Some computers also allow COT(X), which means the COTangent of X radians. 
If you understand calculus and know what the number e is, you can use these 
functions: 
COMPUTER SYMBOL MEANING 


the natural LOGarithm of X; in other words, log, X, which is 

In X 
Some computers also allow LGT(X), which means the LoGarithm base Ten of X, which 
is 108, 9 X. Warning: when a high-school math book says "log X", it means LGT(X), 


not LOG(X). 
Sometimes the computer's answer is too accurate, and you'd prefer a rougher 


one. Here's how to get it: 

COMPUTER SYMBOL MEANING 

TNT(X) X rounded down to an INTeger; for example, INT(17.9) is 17; 

INT(-5.2) is -6; INT(54) is 54 

the eee cee value of X; in other words, X without its minus 
ign; for example ABS(-5 2) is D ioe ABO os Gon Len oe 

if X is negative, SGN(X) is -l; 

SGN(X) is zero 
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The strangest function is RND. Here's how it works on PDP-10 computers; LE17 


j ther computers afterwards, 

RND is a RaNDom decimal, bigger than 0 and less than 1. For example, it might 
be .627564 or .924158 or .203264. Every time your program mentions RND, the computer 
concocts another decimal: 

10 PRINT RND 

20 PRINT RND 

30 PRINT RND 

99 END 

The computer prints: 

0.217873 

0.696209 

0.29751 
The first time your program mentions RND, the computer chooses its favorite decimal, 
which is 0.217873. Each succeeding time your program mentions RND, the computer 
uses the previous decimal to concoct a new one. It uses 0.217873 to concoct 
0.696209, which it uses to concoct 0.29751. The process by which the computer 
concocts each new decimal from the previous one is weird enough so we humans cannot 
detect any pattern. 

This program prints ten thousand decimals: 

+10 FOR N = 1 TO 10000 


20 PRINT RND 
+30 NEXT N 
99 END 


About half the decimals will be less than .5, and about half will be more than .5. 
Most of the decimals will be less than .%—in fact, about 90% will be. About 36% 
of the decimals will be less than .36; 59% will be less than .59; 99% will be less 
than .99; 2% will be less than .02; a quarter of them will be less than .25; etc. 
You might see some decimal twice, though most of the decimals will be different 
from each other. 

If you run that program again, you'll get exactly the same list of decimals 
again, in the same order. 

If you'd rather see a different list, say RANDOMIZE at the beginning of the 
program: 

+1 RANDOMIZE 
10 FOR N = 1 TO 10000 
20 PRINT RND 
30 NEXT N 
40 END 
When the computer _sees RANDOMIZE in line 1, it looks at the clock, and manipulates 
the time's digits to produce the first value of RND. So the first value of RND 
will be a number that depends on the time of day, instead of the usual 0.217873. 
Since the first value of RND will be different than usual, so will the second, and 
So will the rest of the list. 

Every time you run the program, the clock will be different, so the first 
value of RND will be different, so the whole list will be different—wunless you 
run the program at exactly the same time the next day, when the clock is the same. 
But since the clock is accurate to a tiny fraction of a second, the chance of 
hitting the same time is extremely unlikely. 
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10 RANDOMIZE 

20 PRINT "TYPE THE NAME OF SOMEONE YOU LOVE." 

30 INPUT NS 

40 IF RND<.67 THEN 100 

50 PRINT N$" HATES YOUR GUTS." 

60 GO TO 20 

100 PRINT NS" LOVES YOU, TOO." 

110 GO TO 20 

120 END 

Line 10 says the value of RND will depend on the clock. Lines 20 and 30 make 
the computer wait for the user to type a name. Suppose he types SUZY. Then N$ 
is SUZY. When the computer reaches line 40, there is a 67% chance it will jump 
to line 100 and print SUZY LOVES YOU, TOO, but there is a 33% chance it will proceed 
instead to line 50 and print SUZY HATES YOUR GUTS. Lines 60 and 110 make the 
computer do the routine again and again, until the user gives an abortion. The 


run might look like this: 

RUN 

TYPE THE NAME OF SOMEONE YOU LOVE. 
TRSUZLY 

SUZY LOVES YOU, TOO. 

TYPE THE NAME OF SOMEONE YOU LOVE. 
2 JOAN 

JOAN HATES YOUR GUTS. 

TYPE THE NAME OF SOMEONE YOU LOVE. 
? ALICE 

ALICE LOVES YOU, TOO. 

TYPE THE NAME OF SOMEONE YOU LOVE. 
? FRED 

FRED LOVES YOU, TOO. 

TYPE THE NAME OF SOMEONE YOU LOVE. 
? UNCLE CHARLIE 

UNCLE CHARLIE HATES YOUR GUTS. 
etc. 


If _you_ want a random integer from 1 to 10, ask for 1+INTCRND*10). Here's 
why. 


RND is a decimal, bigger than 0 and less than l. 
So RND*10 is a decimal, bigger than 0 and less than 10. 

So INT(RND*10) is an integer, at least zero and no more than 9 
So_1+INT(RND*10) is an integer, at least 1 and no more than 10 
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This program plays a game: 
10 RANDOMIZE 
20 PRINT "I'M THINKING OF A NUMBER FROM 1 TO LO 
30 N=1+INT(RND*10) 
40 PRINT "GUESS MY NUMBER." 
50 INPUT G 
60 PRINT "MY NUMBER WAS"N 
70 IF G=N THEN 100 
80 PRINT "HA, HA, YOU LOSE $1." 
90 GO TO 30 
100 PRINT "CONGRATULATIONS! YOU WIN $10. LET ME SHAKE YOUR HAND." 
110 GO TO 30 
120 END 
Lines 10-20 start the game. Line 30 makes the computer think of a random integer 
from 1 to 10; the computer calls it N. Lines 40-50 wait for the user to guess; 
the guess 1s called G. Line 60 reveals N. If G is the same as N, the computer 
jumps from line 70 to line 100 and prints CONGRATULATIONS...; if G is not the same 
as N, the computer prints HA, HA,... Lines 90 and 110 make the computer repeat. 
Here's a sample run: 
I'M THINKING OF A NUMBER FROM 1 TO 10. 
GUESS MY NUMBER. 
hed 
MY NUMBER WAS 7 
BA, HAe YOU LOSE $1 . 
GUESS MY NUMBER. 
ae 
MY NUMBER WAS 2 
HA. HA, YOU.LOSE Sl. 
GUESS MY NUMBER. 
Lae 
MY NUMBER WAS 8. 
CONGRATULATIONS! YOU WIN $10. LET ME SHAKE YOUR HAND. 
GUESS MY NUMBER. 
GES « 
That's what happens on PDP-10 computers. On others, the favorite number might 
not be Q.217873, and the notation might be different: 


PDP COMPUTERS RADIO SHACK CDC HEWLETT-PACKARD _ PET IBM 

RND RND(0O) RND(O RND(O RND (1 RND 

RANDOMIZE RANDOM R=RND(CLK(0)) not needed R=RND(-TI) not needed 
+ % % 


Notice that the name of every function has three letters: SQR, SIN, COS, 
TAN, ATN, COT, EXP, LOG, LGT, INT, ABS, SGN, and RND. If you don't like those 
functions, you can invent your own. The name of your FuNction must have three 
letters also, and the first two letters must be FN. So the name of your function 
can be FNA or FNB or FNC etc; you have 26 names to choose from. 


10 DEF FNA(X)=X+2+1 Warning: to run this program on 
20 PRINT FNA(8) Radio Shack's computer, you must 
30 B=7+FNA(100) buy the disks, 40 that you get 
40 PRINT B-3 Level III BASIC. 

50 END 


Line 10 DEFines FNA(X) to be Xt2+l, for every X. Line 20 says to print FNA(8), 
which is 8+2+1, which is 65; so the computer prints 65. Line 30 says B is 
7+FNA(100), which is 7+100+2+1, which is 10008. Line 40 prints 10005. 
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LOOP TECHNIQUES 
This program makes the computer imitate an adding machine: 
10 T=0 
20 PRINT ''NOW THE TOTAL IS"'T 
30 PRINT "WHAT NUMBER DO YOU WANT TO ADD TO THE TOTAL"; 
40 INPUT X 
50 T=T+X 
60 GO TO 20 
70 END 
Throughout the program, T represents the Total. Line 10 makes T begin at 0, so 
line 20 prints: 
NOW THE TOTAL IS 0 
Lines 30 and 40 print: 
WHAT NUMBER DO YOU WANT TO ADD TO THE TOTAL? 
The computer waits for the person to input a number X. Line 50 says: the new Total 
will be the previous Total plus X. In other words, the Total will be increased, by 
adding X to it. Line 60 makes the computer repeat those instructions endlessly; 
here's a sample run: 
RUN 
NOW THE TOTAL IS 0 
WHAT NUMBER DO YOU WANT TO ADD TO THE TOTAL? 5 
NOW THE TOTAL IS 5 
WHAT NUMBER DO YOU WANT TO ADD TO THE TOTAL? 3 
NOW THE TOTAL IS 8 
WHAT NUMBER DO YOU WANT TO ADD TO THE TOTAL? 6.1 
NOW THE TOTAL IS 14.1 
WHAT NUMBER DO YOU WANT TO ADD TO THE TOTAL? -10 
NOW THE TOTAL IS 4.1 


etc. 


The program used this technique: 
o add numbers together, 
begin by saying T=0, 


and then have a loop containing this kind of statement; 
=T+something 
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Multiplication is similar: 
To multiply numbers together, 
begin by saying T=1, 
and then have a loop containing this kind of statement: 
T=T*something 
Here's an example: 
10 T=1 
20 PRINT "NOW THE TOTAL IS"T 
30 PRINT “WHAT DO YOU WANT TO MULTIPLY THE TOTAL BY"; 
40 INPUT X 
50 T=T*X 
60 GO TO 20 
70 END 
The run looks like this: 
RUN 
NOW THE TOTAL IS 1 
WHAT DO YOU WANT TO MULTIPLY THE TOTAL BY? 
NOW THE TOTAL IS 7 
WHAT DO YOU WANT TO MULTIPLY THE TOTAL BY? 
NOW THE TOTAL IS 14 
WHAT DO YOU WANT TO MULTIPLY THE TOTAL BY? 710 
NOW THE TOTAL IS-140 
etc: 
For multiplication, the Total should start at 1, not 0; because if you start at 
T=0, the run is boring: 
NOW THE TOTAL IS 0 
WHAT DO YOU WANT TO MULTIPLY THE TOTAL BY? 
NOW THE TOTAL IS 0 
WHAT DO YOU WANT TO MULTIPLY THE TOTAL BY? 2 
NOW THE TOTAL IS 0 
WHAT DO YOU WANT TO MULTIPLY THE TOTAL BY? a 
NOW THE TOTAL IS 0 
etc. 

The factorial of 4 is 1*2*3*4; the factorial of 7 is 1*2*3*4*5%*6*7; to find 
the factorial of any number N, multiply together all the integers from 1 to N. 
This program finds the factorial of any number: 
10 PRINT "WHAT NUMBER DO YOU WANT TO FIND THE FACTORIAL OF"; 
20 INPUT N 


Im 


Ir 


I~ 


80 END 
Lines 10-20 wait for the user to input a number N. Lines 30-60 multiply together 
all the integers from 1 to N. Line 70 prints the final Total. 
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Yes, Virginia, computers can count. Let's make the computer print: 


SUC. 
Notice that each number is 1 more than the previous number. (How profound!) Here's 
the general technique: 


begin by saying T=0, 
and then have a loop containing this statement 
T=T+1 
Here's the program: 
10 T=0 
20 PRINT T 
30 T=T+l 
40 GO TO 20 
50 END 

Suppose you input several values of X and want the computer to find the 
biggest. To begin, set T equal to a very low number, such as -1E38. Compare 
each X against T. Each time you find an X bigger than T, increase T, so it is as 
big as the X. When you're done, T will be the biggest X. Here's the program: 
PROGRAM COMMENT 


10 T=-1E38 Set T equak to a very Low number. 
20 PRINT "TYPE A NUMBER" 
30 INPUT X PSE TS 
40 IF X<=T THEN 100 Compare X with T. If X 44 bigger, do 50; 4§ not, do 100. 
50 T=X 14 X 44 bigger, increase T, 40 Lt 14 as big as the X. 
100 PRINT "THE BIGGEST NUMBER YOU'VE TYPED SO FAR IS"T 
110 GO TO 20 Repeat the process for each X. 
120 END 
The run looks like this: 
RUN 
TYPE A NUMBER 
2-5 


THE BIGGEST NUMBER YOU'VE TYPED SO FAR £S=5 
TYPE A NUMBER 

2 29 

THE BIGGEST NUMBER YOU'VE TYPED SO FAR IS 29 
TYPE A NUMBER 

2-7 

THE BIGGEST NUMBER YOU'VE TYPED SO FAR IS 29 
TYPE A NUMBER 


etc. 
If you want to find the smallest instead of the biggest, the changes are minor: 
+10 T=1E38 Set T equak to a very high number. 
20 PRINT "TYPE A NUMBER" Got x 
30 INPUT X asad 
+40 IF X>=T THEN 100 Compare X with T. If X 44 smaller, do 50; if not, do 100. 
50 T=X 14 X 44 Amakker, decrease T, 40 it ib as Amal as the X. 
+100 PRINT "THE SMALLEST NUMBER YOU'VE TYPED SO FAR IS"T 
110 GO TO 20 Repeat the process for each X. 


120 END 
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SUBSCRIPTS 
If you ever forget a DIM statement, the computer assumes each list has 10 
elements, and each table has 10 rows and 10 columns. If you forget to say— 
10 DIM A(3),B(2,4) 
the computer assumes you want— 
10 DIM A(10),B(10,10) 
so line 20 tries to read 10 elements for A, and line 40 tries to read 100 elements 
You can type these statements: 


for B. The computer will say: 
14 your computer is smakl, skip to 
the next section, entitked "REMARK" 
STATEMENT MEANING 


OUT OF DATA 
MAT A=ZER Change matrix A, so every number in it is ZERo. 
MAT A=CON Change matrix A, so every number in it is the CONstant l. 
Here's an example: 
10 DIM A(4) 
20 MAT A=CON 
30 MAT PRINT A 
40 MAT A=ZER 
50 MAT PRINT A 
60 END 
‘Line 30 prints: 
1 
1 
1 
1 
Line 50 prints: 
0 


+ % % 


0 
0 
0 
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10 
20 
30 
40 


DIM A(100) 
MAT A=CON(3) 
MAT PRINT A 
END 


Line 10 says A will be a list of 100 numbers; but line 20 decreases the size of A 
to 


If 


3. Line 30 prints: 


You can change the size of a matrix several times in your program, but must 
two rules: 


The size can be input: 
DIM A(100) 
INPUT N 
MAT A=CON(N) 
MAT PRINT A 
END 
you input 3, line 40 makes the computer print: 


you input 5, the computer prints: 


you input a number higher than 100, line 20 tries to make A larger than the DIM, 


which is not allowed, and the computer will gripe. 


10 


You can extend the program's capabilities by changing line 10: 
DIM A(1000) 


Then N could be anything up to 1000. But that DIM statement makes your program 
hog 1000 spaces of the computer's memory during the entire run. While your program 


is 
Be 


running, any other programmer who wants to use those 1000 spaces has to wait. 
polite: make your DIMensions small. 
The dimensions you input can be for a table: 


+10 DIM A(5,5) 
+15 INPUT M,N 
+20 MAT A=CON(M,N) 
30 MAT PRINT A 
40 END 
If you input— 
2,4 
the matrix printed will have 2 rows and 4 columns: 
1 1 1 1 
1 1 1 1 
If you input— 
5 
the matrix printed will have 5 rows and 3 columns: 
1 1 1 
1 1 1 
1 1 1 
1 1 1 
i 1 1 
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Most programmers follow this tradition: the total number of rows is called 
M, and the total number of columns is called N. 

You can change dimensions when using CON, ZER, or READ. Here are examples: 
MAT A=ZER(M,N) 
MAT READ B(M,N) 


10 DIM x(4) 

20 MAT INPUT X 
30 MAT PRINT X 
40 END 
Line 10 says X will be a list of 4 numbers. Line 20 prints a question mark and 
waits for you to input the 4 numbers. If you input— 

7.9,81,-2,6 

line 30 will make the computer print: 

79 

81 
-2 

6 

What happens if you input 3 numbers instead of the 4? A computer manufactured 

by CDC or Hewlett-Packard will be unsatisfied, might gripe, and will give you a 
chance to type the fourth number. But on a PDP or Dartmouth computer, something 
different happens: the computer reduces the size of X, from 4 down to 3. 
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Let's make the computer accept an inputted line of numbers and print the sum: 
ON PDP AND DARTMOUTH COMPUTERS 
DIM X(40) 


PRINT "TYPE THE NUMBERS" 

MAT INPUT X 

PRINT "YOU TYPED THESE NUMBERS:'"'! 

MAT PRINT X 

T=0 

FOR I = 1 TO NUM 

T=T+X(1) 

NEXT I 
100 PRINT "THE SUM IS"T 
110 PRINT 'THE AVERAGE IS"T/NUM 
120 END 


list of 40 numbers. 
inputs— 


25 US. 103227 


CDC AND HEWLETT-PACKARD COMPUTERS 

DIM x(40) 

PRINT "HOW MANY NUMBERS WILL YOU TYPE"; 
INPUT N 

PRINT "TYPE THE NUMBERS" 

MAT INPUT X(N) 

PRINT "YOU TYPED THESE NUMBERS:" 


MAT PRINT X 


T=0 

FOR IT =1 TON 
T=T+X(1) 

NEXT I 


100 PRINT "THE SUM IS"T 
110 PRINT "THE AVERAGE IS"T/N 


120 END 
Let's begin by exantning the program on the left. 
Lines 20-30 wait for the user to type that list. 


Line 10 says X will be a 
If the user 


the computer automatically decreases the size of X from 40 down to 5, and also 


defines NUM to be 5. 
25 
18 
7 
3 
77 


Since NUM is 5, line 70 means, "FOR I 
sum X(1)+X(2)+X(3)+X(4)+X(5), which is 25+18+7+3+77, which is 130. 
Line 110 prints the average, which is 130/5, which is 26. 


E30% 


Line 50 prints: 


1 TO 5"; so lines 60-90 set T equal to the 


Notice how flexible that program is. 


of 5 numbers, type the 5 numbers. 
numbers, type 7 numbers. 
type 40 numbers. 


Line 100 prints 


If you want to find the sum and average 


If you want to find the sum and average of 7 
If you want to find the sum and average of 40 numbers, 


If you can't fit all the numbers on the same line, type just the first few of 
them, followed by an ampersand, like this: 
92,-7,123.2,164.345,-745,-2.1534 ,10000, -. 23, 78, 637,0,94, -453.2& 


The ampersand tells the computer you aren't done 
will print another question mark, so you can continue typing the list. 


On the next line, the computer 
If you 


can't fit all the rest of the list on the second line, type an ampersand at the 


end of that line too. 


' The program on the right is similar, except that the lines the arrows point 
to involve N instead of NUM. That's because CDC and Hewlett-Packard 


computers don't understand NUM. 


Line 14 asks you to input N. 
you must input exactly 5 numbers for line 30. 


If you input 5, 
Ampersands are not permitted. 
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REMARK 

Once in a while, jot a note, to remind yourself what your program does and 
what the variables stand for. Slip the note into your program, by calling it 
a REMARK: 
10 REMARK THIS PROGRAM IS JUST ANOTHER DUMB EXAMPLE 
20 N=3 
30 N=N+1 
40 REMARK NOW N IS 4 
50 PRINT N 
60 REMARK THE COMPUTER PRINTS JUST 4 
70 END 
When you type RUN, the computer ignores the remarks. Line 50 makes the computer 
print 4. Ihe computer ignores any line that begins with the word REMARK or the 
letters REM. 

1§ your computer is a POP-10, Radio Shack, Honeywell, or CP/M, 
it will ignore everything after an apostrophe, so you can write the remarks like this: 
10' THIS PROGRAM IS JUST ANOTHER DUMB EXAMPLE 
20 N=3 
30 N=N+1' NOW NIS 4 
50 PRINT N' THE COMPUTER PRINTS JUST 4 
70 END 


On a@ PDP-11 or a PDP-20, use an exclamation point instead of an apostrophe. 
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BECOME AN EXPERT 


Programming a computer is like driving a car: the only way to become an 
expert is to put your hands on that mean machine and try it yourself. 

Put this book next to your terminal; every time you read a paragraph, try it: 
type the examples and look, look, see the computer run. Invent your own 
variations: try typing different numbers and strings. Write your own programs. 
Make the computer print your name or a poem. Make it solve problems from your 
other courses and the rest of your life. The computer is a fantastic toy. Play 
with “Lt. . 

If you're a student, don't wait for your instructor to give lectures and 
assign homework. Act now. You'll learn more from dealing with the terminal than 
from the lectures or readings Experience counts. 

Let me tell you the story of Charlie.... 

At Wesleyan University's computer center, one of the directors was having 
trouble making the computer print the university's payroll. He asked me for help, 
but I said I didn't know either. I saw a little kid sitting at one of the 


terminals. "Hey, Charlie," I called to him, "we're having trouble getting the 
payroll] “outs! 
Little Charlie came over and typed some stuff on our terminal. "The payroll 


will be out in a minute," he said gleefully. 

Charlie was only in seventh grade. He had never taken a computer course, 
because his school didn't offer one. But he had spent the whole summer just 
"hanging around" our computer, and knew it better than we. 

Be like Charlie. Hang around your computer. Communicate with it every day. 
At first that will be even harder than talking with a cat or a tree, because the 
computer belongs to a different specie, a different kingdom; but keep trying. Get 
to know it as well as you know your best friend. 

When dealing with the computer and the people who surround it, be friendly 
but also aggressive. To make sure you get your money's worth from a computer 
course, ask your teacher and coworkers questions, questions, questions! 

If you're taking a French course, you might find French difficult; and if 
you're taking a computer course, you might find computers difficult also. But 
even a stupid three-year-old French kid can speak French, and even my second-graders 
can program the computer. They've got only one advantage over you: practice! 


HOW TO INVENT A PROGRAM 
First, decide on your ultimate goal. Be optimistic. Maybe you'd like the 
computer to play a perfect game of chess? Or translate every English sentence 
into French? 
Chances are, whatever you_want the computer to do, someone else has thought 


of the same idea already, and written some kind of program. Find out. Ask the 
people in your computer center. Check computer textbooks and journals. There are 


books that list what programs have been written. Check the library in your 

town, school, and computer center. (Most computer centers have their own libraries.) 
Write to the company that made your computer. Even if you don't find exactly the 
program you're looking for, you may find one that's close enough to be okay, or 

that will work with just a little fixing, or can serve as part of your program, or 
will at least give you a clue as to where to begin. In one of the textbooks or 
journals, you'll probably find a discussion of the problem you're trying to solve, 
and the pros and cons of various solutions to it—-some methods are faster than 
others. Remember: if you keep your head in the sand, and don't look at what other 
people have done already, your programming effort may turn out to be a mere exercise, 
of no value to the rest of the world. 
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All too often, programmers embark on huge projects and never get them done. 

Once you have an idea of what's been done before, and how hard your project seems 
to be, simplify it. Instead of making the computer play a perfect game of chess, 
how about settling for a game in which the computer plays unremarkably but at least 
doesn't cheat? Instead of translating every English sentence into French, how about 
translating just English colors? (We wrote that program already.) In other words, 

ick_a_ less ambitious, more realistic goal, which if you ‘achieve it, will make you 
feel good and will be a steppingstone to your ultimate goal. Finding a bug in a 
program is like finding a needle in a haystack: it's easier to remove a needle 
from a small haystack than to wait until more hay has been piled on and then trying 
to find the same needle. 

# % % 


Make your new, simple goal more precise. That's called spectficatton. One 


way to be specific is to draw a picture, showing what your terminal's screen or 
paper will look like if your program's running successfully. 
They become the PRINT 


In that picture, find the lines typed by the computer. 
statements in your program. Find the lines typed by the human: they become the 
INPUT statements. Now you can start writing your program: write the PRINT and INPUT 
statements on paper, with a pencil, and leave blank lines between them. You ll fill 
in the blanks later, and won't type on the terminal until your first draft is 
complete. 

Suppose you want the computer to find the average of three numbers. Your 
picture will look like this: 
RUN 
AT ARE THE THREE NUMBERS? number, number,numbe 
E AVERAGE IS number 
Your program at this stage will be: 
10 PRINT "WHAT ARE THE THREE NUMBERS"; 
20 INPUT A,B,C 
etc. 

1100 PRINT "THE AVERAGE IS"D 

etc. 
All you have left to do is figure out what the "etc." is. Here's the general 
method.... 


% % % 


Suppose you didn't have a computer. Then how would you get the answer? 

Would you have to use a mathematical formula? If so, put the formula into 
your program, but remember that the left side of the equation must have just one 
variable. For example, if you're trying to solve a problem about right triangles, 
you might have to use the Pythagorean formula A*+B2=C2; but the left side of the 
equation must have just one variable, so your program must say A=SQR(Ct2-Bt2), or 
B=SQR(C+2-At2), or C=SQR(At2+Bt2), depending on whether you're trying to compute 
AOR ore. 

Would you have to use a memorized list, such as an English-French dictionary 
or the population of each state or the weight of each chemical element? If so, 
that list becomes your DATA, and you need to READ it. If it would be helpful to 
have to data numbered, so the first piece of data is called X(1), the next piece 
of data is called X(2), etc., use MAT READ instead of READ, and don't forget the 
DIM statement. 

Subscripts are particularly useful if the human will input many numbers on the 
same line (use MAT INPUT) or if one long list of information will be referred to 
several times in the program. 

Does your reasoning repeat? That means your program should have a loop. If 
you know how many times to repeat, say FOR...NEXT. If you're not sure how often, 
say GO TO or IF...THEN. If the thing that's to be repeated isn't repeated 
immediately, but only after several other things have happened, call the repeated 
part a subroutine, put it at the end of your program (followed only by RETURN and 
END), and say GO SUB whenever you want it done. 
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At some point in your reasoning, do you have to make a dectsion? Do you 
have to choose among several alternatives? The way to say "choose" is: IF...THEN. 
If you want the computer to make the choice arbitrarily, "by chance", rather than 
because of a reason, say: IF RND<.5 THEN. | 

Do you have to compare two things? The way to say “compare A with B" is: 
IF A=B THEN. 


% + * 


After you've written a few lines of your program, you may find that your 
reasoning "almost repeats"; several lines bear a strong resemblance to each other. 
You can't use GO TO or FOR...NEXT or GO SUB...RETURN unless the lines repeat 
exactly. To make the repetition complete, use a variable to represent the parts 
that are different. ! 

For example, suppose your program contains these lines: 
130 PRINT 29.3428+9.87627*SQR(5) 
140 PRINT 29.3428+9.87627*SQR(7) 
150 PRINT 29.3428+9.87627*SQR(9) 
160 PRINT 29.3428+9.87627*SQR(11) 
170 PRINT 29.3428+9.87627*SQR(13) 
180 PRINT 29.3428+9.87627*SQR(15) 
190 PRINT 29.3428+9.87627*SQR(17) 
200 PRINT 29.3428+9.87627*SQR(19) 
210 PRINT 29.3428+9.87627*SQR(21) 
Each of those lines says PRINT 29.3428+9.87627*SQR(a number). The number keeps 
changing, so call it X. Lines 130-210 can be replaced by: 
130 FOR X = 5 TO 21 STEP 2 
140 PRINT 29.3428+9.87627*SQR(X) 
150 NEXT X 

Here's a harder example to fix: 
130 PRINT 29.3428+9.87627*SQR(5) 
140 PRINT 29.3428+9.87627*SQR(97.3) 
150 PRINT 29.3428+9.87627*SQR(8.62) 
160 PRINT 29.3428+9.87627*SQR( .4) 
170 PRINT 29.3428+9.87627*SQR( 200) 
180 PRINT 29.3428+9.87627*SQR(12) 
190 PRINT 29.3428+9.87627*SQR(591) 
200 PRINT 29.3428+9.87627*SQR(.2) 
210 PRINT 29.3428+9.87627*SQR(100076) 
Again, let's use X. Those nine lines can be combined like this: 
130 FOR I = 1 TO 9 
140 READ X 
150 PRINT 29.3428+9.87627*SQR(X) 
160 NEXT I 
170 DATA 5,97.3,8.62,.4,200,12,591, .2,100076 

This one's even tougher: 
130 PRINT 29.3428+9.87627*SQR(A) 
140 PRINT 29.3428+9.87627*SQR(B) 
150 PRINT 29.3428+9.87627*SQR(C) 
160 PRINT 29.3428+9.87627*SQR(D) 
170 PRINT 29.3428+9.87627*SQR(E) 
180 PRINT 29.3428+9.87627*SQR(F) 
190 PRINT 29.3428+9.87627*SQR(G) 
200 PRINT 29.3428+9.87627*SQR(H) 
210 PRINT 29.3428+9.87627*SQR(I) 
Let's assume A, B, C, D, E, F, G, H, and I have been computed earlier in the program. 
The trick to shortening those lines is to change the names of the variables. 
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Throughout the program, say X(1) instead of A, say X(2) instead of B, say X(3) 
instead of C, etc. Say DIM X(9) at the beginning of your program. Then lines 
130-210 can be written: 

130 FOR I = 1 TO 9 

140 PRINT 29.3428+9 .87627*SQR(X(I)) 

150 NEXT I ) 


% % % 


Some English teachers say that before you write a paper, you should make an 
outline. Some computer teachers give similar advice about writing programs. 


The ‘outline' can take the form of a crude flowchart, or a program in which some 
of the lines are written in plain English instead of computerese. For example, 


one statement in your outline might be: 
130 A = the average of the X's 
Later, when you fill in the details, that statement will be expanded into the 
following: 
130 T=0 
131 FOR I = 1 TO NUM 
132 T=T+X(I) 
133 NEXT I 
134 A=T/NUM 
# 2 + 


Keep the program's over-all organization simple. That will make it easier 
for you to expand it and find bugs. Here is some folklore, handed down from 
generation to generation of programmers, that will simplify your organization.... 

Use top-down programming. That means write a one-sentence description of 
your program; then expand that sentence to several sentences; then expand each of 
those sentences to several more sentences; and so on, until you finally expand the 
sentences-that-came-from-sentences-that-came-from-sentences into lines of program. 
Your program will then be in the same order as the English sentences, and therefore 
will be organized the same way as an English-speaking mind. 

A variation is to use subroutines. That means writing the essence of the 
program as a very short main routine; instead of filling in the grubby details 
immediately, replace each piece of grubbiness by the words GO SUB. After the 
main routine is written, write each subroutine. Your program will be like a good 
book: your main routine will move swiftly, and the annoying details will relegated 
to the appendices at the back; the appendices are called subroutines. Keep each 
subroutine down to 50 lines; if it starts getting longer and grubbier, replace each 
piece of grubbiness by a GO SUB to another subroutine, written afterwards and having 
higher line numbers. 

Avoid GO TO. It's hard for a human to understand a program that's a morass 
of GO TO statements. It's like trying to read a book where each paragraph says to 
turn to a different page! When you must say GO TO, try to go forward instead of 
backwards, and not go too far. The same advice goes for IF...THEN. 

Divide your program into modules. A module is a bunch of consecutive lines 
forming a unit that cannot be "punctured"; in other words, there is no GO-TO-type 
statement outside the module that sends the computer to the module's middle; the 
only way the module can be activated is by starting with its top line. (If the 
module is particularly nice, the only way it can be deactivated is by arriving at 
its bottom line; in other words, there is no GO-TO-type statement in the module's 
middle that sends the computer outside the module.) If you used top-down 
programming, each module probably corresponds to one sentence in your program's 
description. Write that sentence at the top of the module, as a REMARK. 
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Use spacing. Put a blank line before every module. (To type a blank line, 
type a line number, then press the space bar, then press the carriage return.) 
Indent between the words FOR and NEXT. When you say — 
130 IF X<3 THEN 180 
indent the lines that come after 130 and before 180. If a loop ends with the words 
GO TO, indent the entire loop except for its top line and the GO TO. 

Sometimes I ignore that folklore. But often it's helpful. 


MAKE IT EFFICIENT 
Your program should be effictent. That means it should use as little of the 
computer's time and memory as possible. 
To use less of the computer's memory, make your DIMensions as small as possible. 
Try writing the program without any matrices at all; if that turns out to be 
terribly inconvenient, use the smallest and fewest matrices possible. 
To use less of the computer's time, avoid having the computer do the same thing 
more than once 
These lines force the computer to compute SQR(8.3*N+7) three times: 
50 PRINT SQR(8.3*N+7)+2 
60 PRINT SQR(8.3*N+7)/9.1 
70 PRINT 5-SQR(8.3*N+7) 
You should change them to: 
249 K=SQR(8.3*N+7) 
750 PRINT K+2 
+60 PRINT K/9.1 
>*70 PRINT 5-K 
These lines force the computer to compute X+t9+2 a hundred times: 
50 FOR I = 1 TO 100 


60 PRINT (X+9+2)/1 
70 NEXT I 
You should change them to: 
749 K=Xt9+2 
50 FOR I = 1 TO 100 
760 PRINT K/I 
70 NEXT I 
These lines force the computer to count to 100 twice: 
50 T=0 
60 FOR I = 1 TO 100 
70 T=T+X(1) 
80 NEXT I 
90 PRINT ''THE SUM OF THE X'S IS"T 
100 P=1 


110 FOR I = 1 TO 100 

120 P=P*X(1) 

130 NEXT I 

140 PRINT ''THE PRODUCT OF THE X'S IS"'P 
You should change them to: 


50 T=0 
+5] Pay 
60 FOR I = 1 TO 100 
70 T=T+X(L) 
mate P=P*X(TL) 
80 NEXT I 


30,-PRINT "THE SUM OF THE, X'S 1S"? 
140 PRINT "THE PRODUCT OF THE X'S IS''P 


* # % 
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Suppose you want the computer to alphabetize a list of names. What's the best 
Strategy? Imagine trying to alphabetize the list yourself—each name is written on 
a file card, and you have to put the deck of cards in alphabetical order. One 
strategy would be to compare the second card with the first, interchange them if 
necessary, then look at the third card, do another interchange if necessary, and 
so on to the end of the deck. A different strategy would be to put all the A's in 
one pile, all the B's in another, etc., and then sort each pile. Which strategy 
is better? If the file has ten cards or less, the interchange method is faster; 
if the file is very long, the 26-pile method is faster but requires space to lay 
out 26 piles. Which method would make a more efficient program? That depends on 
how long the file is and whether your computer's main lack is fast parts or large 
memory. 

* 


An integer is called composite if it is the product of two other integers. 
35 is composite, because it is 5*7; 9 is composite, because it is 3*3; 12 is 
composite, because it is 2*6; 13 is not composite, and is therefore called prime. 
This program tells whether a number is prime or composite: 
10 PRINT "TYPE A POSITIVE INTEGER" 


20 INPUT N 

30 FOR I = 1 TO N-1 

40 FOR J = 1 TO N-1 

50 IF N=I*J THEN 100 14 N £4 prime, Line 50 is encountered (N-1)2 times. 
60 NEXT J For example, 44 N 445 a patme near a million, 

70 NEXT I kine 50 44 encountered about 1,000,000,000,000 times. 
80 PRINT N"IS PRIME" 

90 STOP 

100 PRINT N"IS COMPOSITE" 

110 END 


Lines 10-20 wait for you to type a number N. Line 50 checks whether N is the 
product of two other integers; if it is, the computer jumps to line 100 and prints 
N"IS COMPOSITE". How efficient is the program? Since it contains no matrices, it 
doesn't require much space in the memory. But if N turns out to be prime, line 
50 is encountered once for every I and once for every J; altogether it is 
encountered (N-1)2 times. If N is a large number, around a million, (N-1)? is 
around a trillion. To do line 50 a trillion times will take a typical computer 
several months. The program is very inefficient. 
Some small improvements are possible; for example, I and J can start at 2 
instead of 1. But so long as we have a loop inside a loop, the time will remain 
very large. Here's a strategy that requires only one loop: try dividing N by 
every integer less than it, and see whether the quotient is ever an integer. 
Here's the program: 
10 PRINT "TYPE A POSITIVE INTEGER" 
20 INPUT N 

+30 FOR I = 2 TO N-l 

+40 Q=N/I 


+50 IF Q=INT(Q) THEN 100 If N 44 prime, Line 50 44 encountered N-2 tunes. 
70 NEXT I Fox example, 46 N 445 a parame near a million, 
80 PRINT N"IS PRIME" Line 50 44 encountered about 1,000,000 times. 
90 STOP 
100 PRINT N'"IS COMPOSITE" 
110 END 


Line 40 divides N by an integer. Line 50 says: if that quotient is an integer, 
jump to line 100, which prints N"IS COMPOSITE". If N turns out to be prime, line 
50 is encountered once for every I; altogether it is encountered N-2 times. That's 
less than in the previous program, where it was encountered (N-1)* times. If N is 
about a million, our new program is about a million times faster than the previous 
one! It will take a typical computer several seconds, instead of several months. 
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Further improvements are possible. If an N can't be divided by 2, it can't 


be divided by any even number; so after checking divisibility by 2, we have to 
check divisibility by just 3, 5, 7, ..., N-2. Let's put that short-cut into our 
program, and also say that every N less than 4 is prime: 
10 PRINT "TYPE A POSITIVE INTEGER" 
20 INPUT N 

+21 IF N<4 THEN 80 

+28 Q=N/2 

+29 IF Q=INT(Q) THEN 100 

>30”"FOR*D = 3° TOUN-29STEP* 2 
40 Q=N/I N 
50 IF Q=INT(Q) THEN 100 If N 44 prime, Line 50 44 encountered g72 Limes. 
a Shae es PRIME" For example , 44h N i6 a prime near a mllion, 
90 STOP kine 50 44 encountered about 500,000 times. 


100 PRINT N"IS COMPOSITE" 
110 END 
Lines 28-29 check divisibility by 2; lines 30-70 check divisibility by 3, 5, 7, ..., 


N-2. If N is prime, line 50 is encountered 572 times, which is about half as 


often as in the previous program; so our new program takes about half as long to 
run. 


Our original object was to find a pair of integers whose product is N. If 


there is such a pair of integers, the smaller one will be no more than YN, so we 
can restrict our hunt to the integers not exceeding VN: 


10 
20 
21 
28 
a9 
+30 
40 
50 
70 
80 
90 


PRINT "TYPE A POSITIVE INTEGER" 
INPUT N 
IF N<4 THEN 80 
Q=N/2 
IF Q=INT(Q) THEN 100 
FOR I = 3 TO SQR(N)*1.00001 STEP 2 
Q=N/I WN 
IF Q=INT(Q) THEN 100 If N 44 prtme, Line 50 encountered —> ~ I times. 
NEXT I 
PRINT N'"IS PRIME" 
STOP 


For example, 44 N 45 a prime near a million, 
Line 50 is encountered about 500 times. 


100 PRINT N'"IS COMPOSITE" 

110 END 

The '*1.00001" is to give a margin of safety, in case the computer rounds SQR(N) a 
bit down. If N is a prime near a million, line 50 is encountered about 500 times, 
which is much less than the 500,000 times encountered in the previous program and 
the 1,000,000,000,000 times encountered in the original. It will take the computer 
only a small fraction of a second. 


so 


The frightening thing about this example is that the first version we had was 
terrible, but the only way to significantly improve it was to take a totally 


fresh approach. To be a successful programmer, you always have to keep your mind 
open, and hunt for fresh ideas 
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DON'T BE SILLY 


Skim through your program and eliminate any lines that are silly. Here are 
examples of silly lines; I assume your program is numbered 10, 20, 30, AOGR: 
A GO TO that goes to the next line: 
30 GO TO 40 
Omit it. The computer will go to line 40 anyway. 
An IF that goes to the next line: 
30 IF X<7 THEN 40 
When the computer encounters line 30, what happens? If X is less than 7, the 
computer jumps to line 40. But if X is not less than 7, the computer proceeds 
from line 30 to the next line—which is line 40 anyway! So the computer always 
goes from line 30 to line 40, regardless cf whether X is less than 7. There's 
nothing "iffy'' about the situation, so don't say IF. Just say: 
30 GO TO 40 
But "30 GO TO 40" is silly; so just eliminate the line altogether. Warning: 
when writing '30 IF X<7 THEN 40", you were probably trying to say, "do line 40 
only if X<7." Here's how to say it: . 
30 IF X>=7 THEN 50 
An IF that just skips over a GO TO: 
30 IF X<7 THEN 50 
40 GO TO 100 
Combine those two lines into a single line: 
30 IF X>=7 THEN 100 
The new line 30 says: if X>=7, jump to line 100; but if X<7, proceed to the next 
line, which is now line 50. 
An IF followed by its opposite: 
30 IF X<7 THEN 100 
40 IF X>=7 THEN 200 
Remove the IF from line 40: 
30 IF X<7 THEN 100 
+40 GO TO 200 
The new version does the same thing as the original, because the computer reaches 
the new 40 only if X is not less than 7. 
Here's another IF followed by its opposites: 
30 IF X<7 THEN 100 
40 IF X=7 THEN 200 
50 IF X>7 THEN 300 
Remove the last IF: 
30 IF X<7 THEN 100 
40 IF X=7 THEN 200 
>50 GO TO 300 
By removing one piece of silliness, you may uncover another. For example, 
here's a piece of silliness—an IF followed by its opposite: 
30 IF X<7 THEN 50 
40 IF X>=7 THEN 200 
Applying our rules of cosmetics, we get: 
S0eLTF.X<7 THEN 50 
>40 GO TO 200 
But now line 30 is an IF that just skips over a GO TO; we've uncovered another piece 
of silliness! Applying more cosmetics, we get down to a single line: 
30 IF X>=7 THEN 200 


Page 70: Style 


AVOID ROUND-OFF 

The computer cannot handle decimals accurately. If you say X=.1, the computer 
is unable to set X equal to .1 exactly; instead, 1t will set X equal to a number 
very, very close to .l. The reason for the slight inaccuracy is that the computer 
thinks in "binary", not decimals; and .1 cannot be expressed in binary exactly. 

Usually you won't see the slight inaccuracy; because when you ask the computer 
to PRINT a number, the computer prints it rounded to six significant figures, and 
the inaccuracy is so small it doesn't show up in the rounded result. But there are 


three situations in which the inaccuracy can be noticed: 
13 reliins the Computer to do A-B, where A is almost equal to B, and the 


first several digits of A are the same as the first several digits of B. For 
example, if you ask a PDP-10 computer to print 4.001-4, the computer will not 
print .001; instead it will print .000999987. The same thing happens if you do 
4.001+(-4). If you ask the computer to print 12345678.9-12345678.8, it will print 
.125 instead of .1. The error can get magnified: if you ask the computer to 
multiply 12345678.9-12345678.8 by 1000, it will print .125*1000, which is 125, 
instead of .1*1000, which is 100. If you ask it to find the reciprocal of 
12345678.9-12345678.8, it will print 1/.125, which is 8, instead of 1/.1, which is 
10. 

Those are the errors you'll»get from a PDP-10 computer. The PDP-10 is more 
accurate than most other computers, which give errors that are even worse. On CDC 
computers, the errors are slightly less. 

2. Saying "FOR X = A TO B STEP C'', where C is a decimal and the loop will be 
done _many times. For example: 

LOMFORA Xi Se¥ TOs lO3,STEP oh 


20 PRINT X 
30 NEXT X 
40 END 


Theoretically, the last few numbers the computer prints should be: 
192.6 
192.7 
192.8 
192.9 
193 
But that's not what actually happens. In line 10, the computer can't handle the 
decimal .1 accurately. The last few numbers a PDP-10 computer thinks of are: 
slightly more than 192.6 
slightly more than 192.7 
slightly more than 192.8 
slightly more than 192.9 
The computer does not think of the next number, slightly more than 193, because 
line 10 says not to go past 193. In line 20, the word PRINT makes the computer 
print the numbers rounded to six significant digits, so it prints: 
192.6 
19.2547 
192.8 
192.9 
It does not print 193. 
If you want to compute 7 + 7.1 + 7.2 + 7.3 + ... + 193, you might be tempted 
to write this program: 
+5 T=0 
LOLPORU Xi=i7) TO 1936S TEP ol 
+20 T=T+X 
30 NEXT X 
+35 PRINT T 
40 END 
The computer will print a reasonable-looking answer: 185907. But that "answer" 
is wrong, because the last number it added was slightly more than 192.9; it never 
added 193. The correct answer is 186100. 
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One remedy is to change line 10 to this: 
10 FOR X = 7 TO 193.05 STEP .1 
The .05 at the end of 193 allows for the margin of error. The general strategy is 
to change— 
10 FOR X = A TO B STEP C 
to this: 
10 FOR X = A TO B+C/2 STEP C 
An alternative remedy is to replace— 
10) ROR) Reve of? TO b93'5 TER? 1 
by this pair of lines: 
10 FOR I = 70 TO 1930 
14. X=1/10 
As I goes from 70 to 1930, X will go from 7 to 193 in steps of .1. This remedy is 
the most accurate of all, since it eliminates decimals from line 10. But don't 
forget to change "NEXT X" to "NEXT I''; and the division in line 11 makes the program 
very slow. 

3. Asking the computer whether two numbers X and Y are equal. It's unwise to 
ask whether X is exact Ly equal to Y, since both X and Y have probably been affected 
by some slight error. Instead, ask the computer whether the difference between X 
and Y is much tinier than Y: 


BAD GOOD 
IF X=Y THEN 100 IF ABS(X-Y)<=.000001*ABS(Y) THEN 70 


The .000001 is requesting, roughly, that the first six significant digits of X be 
the same as the first six significant digits of Y. 


* * + 


It may seem from the foregoing discussion that computers ought to be made 
differently, using the decimal system instead of binary. There are two 
counterarguments. First, binary arithmetic is faster. Second, even if computers 
were using the decimal system, inaccuracy would still occur. To store the fraction = 
accurately by using the decimal system, the computer would have to store a decimal 
point followed by infinitely many 6's. That would require an infinite amount of 
space in memory, which is impossible (unless you know how to build an infinitely 
large computer?) So even in the decimal system, some fractions must be approximated 
instead of handled exactly. 


* + ¥ 


According to mathematicians, addition is supposed to obey these laws: 
A+0 is exactly the same as A 
A+B is exactly the same as B+A 
A+-A is exactly the same as 0 
(A+B)+C is exactly the same as A+(BtC) 
On the computer, the first three laws hold, but the last does not. If A is 
a decimal tinier than C, the computer does (A+B)+C more accurately than A+(B+C). 


So to add a list of numbers accurately, begin by adding together the tiniest 


decimals in the list; 
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When you've written a program, test it: type RUN and see whether it works. 

If the computer gripes, you know the program doesn't work, and you can start 
hunting for the bug. 

If the computer does not gripe, your tendency will be to say "Whoopee!" Don't 
cheer too loudly. The answers the computer is printing may be wrong. Even if its 
answers look reasonable, don't assume they're right: the computer's errors can be 
very subtle. Check its answers, by doing some calculations on a piece of paper. 

Even if the answers the computer prints are correct, don't cheer. Maybe you 
were just lucky. Type different input, and see whether your program still works. 
Chances are, there's something you can input that will make your program go crazy 
or print a wrong answer. Your mission: to find input that will reveal the existence 
of a bug.  Iry six kinds of input...) 

1. Simple input. Type in simple integers, like 2 and 10, so the computation 
is simple, and you can check the computer's answers easily. 

2. Increasing input. See how the computer's answer changes when the input 
changes from 2 to 2.01. See how the computer's answer changes when the input changes 
from 2 to 1000. Does the change in the computer's answer look reasonable? Does 
the computer's answer go up when it should go up, and down when it should go down? 
and by a reasonable amount? 

3. Input that tests each IF. For a program that says— 
30aLFoX<7) THEN 100 
input an X less than 7 (to see whether line 100 works), input an X greater than 7 
(to see whether line 40 works), input an X equal to 7 (to see whether you really 
want "<" instead of '<="'), and input an X very close to 7, to check roundoff error. 
For a program that says— 

30 IF At2+B<C THEN 100 
input an A, B, and C that make At2+B less than C; that make At2+B greater than C; 
that make At2+B equal to C; and that make At2+B close to C. 
4. Extreme input. What happens if you input: 
a huge number, like 45392000000 or 1E35? 
a tiny number, like .00000003954 or 1E-35? 
a4 ‘trivial number,, likes or 12 
a typical number, like 45.13? 
a negative number, like -52? 
Find out. If the input is supposed to be a string, what happens if you input AAAAA 
or ZZZZZ? If there are supposed to be two inputs, what happens if you input the 
same thing for each? 

5. Input that will make some lines in your program act strangely. If your 
program contains division, create input that will make the divisor be zero or a 
tiny decimal close to zero. If your program contains a square root of a quantity, 
create input that will make the quantity be negative. If your program says 
FOR I = A TO B, create input that will make B be less than A, or equal to A. If 
your program mentions X(1), create input that will make I be zero or negative or 
greater than the DIM. Create input that causes round-off error: for a program that 
says A-B or says IF A=B THEN 100, create input that will make A almost equal to B. 
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6. Garbage. Many people hate computers because they often print wrong answers. 
A computer can print a wrong answer because its machinery is broken, or because a 
program has a bug. But the main reason why computers print wrong answers is that 
the input is incorrect. Incorrect input is called oer It has several causes.... 

The user's finger slips. Instead of 400, he inputs 4000. Instead of 27, he 
inputs 72. Trying to type .753, he leaves out the decimal point. 

The user got wrong information. He tries to input the temperature, but his 
thermometer is leaking. He tries to input the results of a questionnaire, but 
everybody who filled out his questionnaire lied. 

The instructions aren't clear. The program asks HOW FAR DID THE BALL FALL, and 
the user doesn't know whether to type the distance in feet or in meters. Is time 
to be given in seconds or minutes? Are angles to be measured in degrees or radians? 
If the program asks WHAT IS YOUR NAME, should the user type JOE SMITH or "SMITH,JOE" 
Or just JOE? Can the user input Y instead of YES? Maybe the user isn't clear 
about whether to insert commas, quotation marks, and periods. If several items are 
to be typed, should they be typed on the same line or on separate lines? If your 
program asks HOW MANY BROTHERS AND SISTERS DO YOU HAVE, and the user has 2 brother 
and 3 sisters, should he type 5 or "2,3" or "2 BROTHERS AND 3 SISTERS"? For a 
quiz that asks WHO WAS THE FIRST PRESIDENT OF THE UNITED STATES, what if the user 
answers GEORGE WASHINGTON or simply WASHINGTON or G. WASHINGTON or GENERAL GEORGE 
WASHINGTON or PRESIDENT WASHINGTON or MARTHA'S HUSBAND? Make the instructions 
clearer: 

WHO WAS THE FIRST PRESIDENT OF THE UNITED STATES? 
GIVE JUST HIS LAST NAME. 


The user is trying to be funny or sabotage the computer. Instead of inputting 


his name, he types an obscene comment. When asked how many brothers and sisters 
he has, he says 275. 


les your responsibility as_a programmer to make sure that the directions for 


using your program are clear, and that the program rejects ridiculous input. For 
example, if your program 1s supposed to print weekly paychecks, it should refuse 
to print checks for more than $10000. Your program should contain these lines: 
20 INPUT X 

30 IF X>10000 THEN 100 


100 PRINT X"IS QUITE A BIG PAYCHECK! -I DON'T BELIEVE YOU." 
110 PRINT ''PLEASE RETYPE YOUR REQUEST." 
120 GO TO 20 
Lines 30 and 100-120 are called an error-handling routine. Your program should 
contain several, to prevent printing checks that are too small (2c?) or negative 
or otherwise ridiculous ($200.73145?) 

To see how your program reacts to input that's either garbage or unusual, 


ask the person sitting next to you to run your program. He might input something 


you never thought of. 
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Write an explanation that helps other people understand your program. An 
explanation is called docwnentation; when you write an explanation, you are 
doewnenting the program. The documentation can be written on a separate sheet of 
paper (to be put in the computer center's library), or printed when the user types 
RUN or LIST. A popular device is to begin the RUN by making the computer ask the 
user.... 

DO YOU NEED INSTRUCTIONS? 
Two kinds of documentation are needed: how to use the program, and the method by 
which the program was written. 

Your explanation of how to use the program should include.... 


the program's name, and how to get the program from the disk 
the program's purpose 


a list of other programs that must be combined with this program, to make a 
workable combination 


the correct way to type the input and data (show an example) 
the correct way to interpret the output 


the program's limitations (input it can't handle; a list of error messages that 
might be printed; roundoff error) 


a list of bugs you haven't fixed yet 


An explanation of how the program was written will help other programmers 
borrow your ideas, and expand your program to meet new situations. It should 
include.... 


your name 

the date you finished it 

the computer you wrote it for 

the language you wrote it in (probably BASIC) 


the name of the method used (example: this program solves quadratic equations by 
using the quadratic formula, solves triangles by using the law of sines, solves 
simultaneous linear equations by using Gauss-Jordan elimination, and alphabetizes 
the data by using a bubble sort) 


the name of the book or journal where you found the method 
the name of any program you borrowed ideas from 


an informal explanation of how the program works ("It keeps looping until At2 is 
greater than 2*B, which makes it jump to subroutine 1000 and compute the weather 
forcast for Tuesday.") 


the purpose of each module 
the meaning of each variable 


the meaning of arriving at a line (for a program saying IF X<60 THEN 1000, you 
might make this comment: "Arrival at line 1000 indicates the student flunked."') 
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t functions 


SQR(X) gives the same answer as X+.5, but the computer does SQR(X) faster. 
If you want the cube root of X, ask for Xt(1/3). If you want the 4th root of X, 
BS stor: X41 61/4 i OF Xta25. 


TRIGONOMETRY 

On a piece of graph paper, 
draw a circle, whose 
center,.15:the. graph's 
origin, and whose radius 
isu 0 Using a. protractoz., 
mark the angles on the 
circle, by putting 0 at 
the right, and going 
counterclockwise. 

The stne of an angle is its Y value. For example: 
the sine of 0 is 0 
the sine of 30° is .5 
the sine of 60. is about .87 
the sine of 90 is 1 
the sine of 120° is about .87 
the sine of 150° is .5 
the sine of 180° is 0 

The cosine of _an angle is its X value. For example: 
rnencosine of *0 "i's +1 
the cosine of 30. is about .87 
the cosine of 60_is .5 
the cosine of 90 is 0 
the cosine of 120. is -.5 
the cosine of 150 is about -.87 
the cosine of 180 is -1 

The tangent of an angle is its sine divide by its cosine. For example, the tangent 
of 60 is about .87/.5, which is 1.74. The arctangent is the opposite of the tangent: 
the tangent of 60° is about 1 74 
the arctangent of 1.74 is about 60 

The cotangent is the cosine divided by the sine. For example, the cotangent of 60° 
PeAPOUl Ll. oy , WLCH 1535. 5y 

If you want the computer to print the sine of S0u do not give this command: 
PRINT SIN(30) 
The computer will think you mean an angle whose size is 30 radians instead of 30 
degrees. (A radian is larger than a degree. A radian is about 57.3 degrees. More 
precisely, a radian is 180/n degrees. So a degree is 7/180 radians. In other words, 
a degree is about .0174532925 radians.) 

This program finds the sine of 30°: 
10 D=.0174532925 
20 PRINT SIN(30*D) 
30 END 
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This program finds the tangent of 30°: 
10 D=.0174532925 
+20 PRINT TAN(30*D) Exception: Atart computers don't understand TAN. 
30 END 
This program finds the arctangent of 1.5, in degrees: 
10 D=.0174532925 
+20 PRINT ATN(1.5)/D 
30 END 
Notice that for arctangent, you must divide by D. 
IBM computers understand that ASN means "'arcsine'' and ACS means "'arccosine''. On 
other computers, use these formulas: 


the arcsine of X = the arctangent of a ATN (X/SQR(1-X*#2) ) 
1-xX 


the arccosine of X = ae the arcsine of X = 1.57079633-ATN(X/SQR(1-X+2)) 


Those formulas give the answers in radians; if you want degrees instead of radians, 
divide by D. 


EXP 


e is a special number, which is approximately 2.718281828459045. You can memorize 
that number easily, if you pair the digits: 
2.7 18 28 18 28 45 90 45 
That weird number is important in calculus, radioactivity, biological growth, and 
other areas of science. It is calculated by this formula: 
1 1 i. 1 1 1 1 


etn 7 * ye2 * Teaes * Teoegeq.* Tezegeaes * Tedeaed*5*6 1420544053 ORT Bake 
SO) ear nt i + hy + Whe + RSE 
2 6 24 120 720 5040 


EXP(X) means ae For example, EXP(3) means e°, which is e*e*e, which is 
2.718281828459045*2.718281828459045*2.718281828459045. EXP(4) means e+, which 
is e*e*e*e. EXP(3.1) means e3:!, which is more than e? but less than e’. 

Here's a practical application. Suppose you put $732 in a savings account, and 
the bank promises to give you 5% annual interest "compounded continuously". How 
much money will you have at the end of the year? The answer is 732*EXP(.05). 


LOGARITHMS 
Here are some powers of 2: 


Auf AN-H|X< 
Oo 


To compute the logarithm-base-2 of a number, find the number in the right column; 
the answer is in the left column. For example, the logarithm-base-2 of 32 is 5. 


The logarithm-base-2 of 15 is slightly less than 4. The logarithm-base-2 of 64 is 6. 


That fact is written: 
logy 64 is 6 
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Here are some powers of 10: 


10" 

10 

100 

1000 
10000 
5 100000 
The logarithm-base-10 of 100000 is 5. The logarithm-base-10 of 1001 is slightly more 
than 3. The logarithm-base-10 of 10000 is 4. That fact is written: 
log; 10000 is 4 
The logarithm-base-10 is called the common logarithm, and is the kind of logarithm 
used in high school and in chemistry. 

In the section on EXP, I said that e denotes a special number, which is about 
2.718281828459045. The logarithm-base-3 is called the natural logarithm, and is 
the kind of logarithm used in calculus and in computers. If you ask the computer 
for LOG(X), the computer will give you the logarithm-base-e of X. So LOG(X) is 
the opposite of EXP(X): 

EXP(4) is about 54.5981 
LOG(54.5981) is about 4 

To find the logarithm-base-2 of X, ask for LOG(X)/LOG(2). To find the 
logarithm-base-10 of X, ask for LOG(X)/LOG(10), or (on some computers) LGT(X) or 
LOG10(X). 


PWN F]>< 


INT 
To round X down to an integer, ask for INT(X). To round X up to an integer, ask 
for -INT(-X). To round X to the nearest integer, ask for INT(X+.5). Here are examples: 
INT(X), which -INT(-X), which INT(X+.5), which 


X rounds down rounds up rounds ta the nearest 


Rounding down and rounding up are useful in the supermarket.... 

Suppose some items are marked "'30¢ each", and you have only two dollars. How many 
can you buy? Two dollars divided by 30¢ is 6.66667; rounding dowm to an integer, 
you can buy 6. 

Suppose some items are marked "3 for a dollar", and you want to buy only one. How 
much will you be charged? One dollar divided by 3 is 33.3333¢; rounding up to an 
integer, you will be charged 34¢. 

By using INT ou_can do fancier kinds of rounding: 
to round X to the nearest thousand, ask for INT(X/1000+.5)*1000 
to_ round X_to the nearest thousandth, ask for INT(X/.001+.5)*.001 

This pair of instructions rounds X, so that it will have N digits after the decimal 
point: 

50 B=10+-N 
51 X=INT(X/B+.5)*B 

This pair of instructions rounds X, so that it will have N significant digits: 

50 B=10+(1-N+INT(LOG (ABS (X) )/LOG(10))) 
51 X=INT(X/B+.5)*B 
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SGN 
If X is negative 
SGN(-546) is - 
SGN(-53.2) is -1 
SGN(-.03) is -1 
X is positive, SGN(X) is 1: 
SGN(8231) is 1 
SGN(3.45) is 1 
SGN(.007) is 1 
SGN(0) is 0. 
SGN is the opposite of ABS. Let's see what both functions do to -7.2. ABS removes 


the minus sign, but leaves the digits: 
SGN removes the digits, but leaves the minus sign: 

The Latin word for stgn is stgnwnm. Some mathematicians prefer to call SGN the 
"signum' function instead of the "sign'’ function, because "sign'' sounds confusingly 


like "sine". 


SGN(X) is -1: 


TIME 
Suppose you're running a program on June 27, 1980, in the afternoon, at 2 seconds 
after 1:54PM. On a 24-hour clock, the time is 13:54; more precisely, the time is 
13:54:02. Translating the time into seconds, we find that 13 hours + 54 minutes + 
2 seconds totals 50,042 seconds. That's how many seconds have elapsed since 
midnight. 

Suppose your program has been running a while; you typed RUN 20 seconds ago, and 
the computer has spent 3.1 of those seconds thinking about your program. In other 
words, it has spent 31 deciseconds thinking about your program. (During the rest 
of the 20 seconds, the computer was thinking about other terminals instead.) 

To find out the date and times, you can use these functions.... 

Honeywell computers: DAT$ is "06/27/80" 
CLESUT Sy 15754. 02" 
FIM! ass 351 
CDC computers: DAT$ is ''80/06/27" 
CLKS sis) 13254002" 
CLK(0O) is 50042 
TIM(O) is 3.1 
IBM computers: DAT is ''1980/06/27" 
CLK ist 3354-02" 
TIM is 50042 
CPU ES ta ws 
PDP-11 having BASIC-PLUS: DATE$(0) is ''27-JUN-80" 
TIME$(0) is "01:54 PM!! 
TIME(0) is 50042 
TIME (1).s2s31 
PDP-20, and PDP-11 having BASIC-PLUS-2: DAT$ is ''27-JUN-80" 
DATE$(0) is ''06/27/80" 
Cig 15.00 152542020 
TIMESLO}, tS .0Losoas 
TIME(O) is 50042 
TIME(1) is 31 
POPS 10>. 7 Pinar Seat 
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To compute the time, each computer contains a clock. When you buy a new computer 
and plug it in, the computer will ask you to set its clock to the correct time. To 
set the computer's clock, look at your wristwatch, and tell the computer what time 
is on your watch. 

Moral: if the computer says the time is 1:54PM, the actual time might be 
different, because the person who set the computer's clock might have had a bad 
wristwatch. So to find out the exact time, don't ask the computer; listen to a 
radio instead. 


STRING ANALYSIS 
The computer can analyze a string. For example, suppose A$ is the string ''HAPPINESS". 
Since ''HAPPINESS" has 9 characters, the length of A$ is 9. The left 3 characters of 
A$ are "HAP"; the right 3 characters of A$ are "ESS"; the right part of A$, beginning 
At tne ora characcersot AS, is 'PPINESS'!: 

The 3rd, 4th, 75th, -6th, and 7th\¢haracters of A$ :ares?PPINE"; so’ "PPINE"? is called 
a substring or segment or middle of A$. To describe how to form the "'PPINE", you 
can say, "Start at the 3rd character and end at the 7th." Or you-can say, "Start at 
the 3rd character, and take 5 characters altogether." 

Since ''PPINE" is in A$, and begins at the 3rd character of A$, we say that the 
index posttion in string A$ of "PPINE' is 3. "HAPPINESS" contains "S'' twice; since 
tiectiret. 3, 15 at position: o, the, ifidex position in string A$ of "S" .is- 8." Since 
Shen oaoe not in “HAPPINESS; ‘the iIndex™position in string A$ of "PINK" Gs 40. 

You can combine two strings, to form another. For example, A$ concatenated with 
S1LY 25 “HAPPINESSILY™. 

Here's how to do those analyses: 

HONEYWELL COMPUTERS 

LEN (A$) is the LENgth of A$. It is 9. 

SEG$(A$,3,7) is the SEGment of A$ from the 3rd character to the 7th. It is ''PPINE"'. 
FUsiqeo Prine '.4) 15.the PUsition an Aj of "PPINE'™? 9 iti1s” 3. 

Beoelit 15, As.concatenated with "LLY". It as "“HAPPINESSILY':. 


CDC COMPUTERS 

LEN(A$) is the LENgth of A$. It is 9. 

BBO RtAS,.0) 1S the SUBSTRing of AS trom the 3rd character. It is “PPINESS". 
SUBSIRLAS, 5,7) 2S the. SUBSIRing of As from the 3rd character to the 7th. It is. “PPINE". 


HEWLETT-PACKARD, NOVA, ECLIPSE, NORTH STAR, AND ATARI 

LEN(A$) is the LENgth of A$. It is 9. 

AS(3) is the substring of A$ from the 3rd character. It is "PPINESS". 

At(>,7) ls the substring of A$ from the 3rd character to the 7th. ‘It. is 'PPINE”’. 


IBM 

LEN(A$) is the LENgth of A$. It is 9. 

Sint asso jets one Subst Ring, of A$ fromithecsrd ‘character.,/ It is "'PPINESS". 

SIR(AS, 3,9) is the subSTRinge of A$ trom the Srd°char., taking 5 of them. (It is ''PPINE"’ 
TURAS, PPINE”) &5 the InDex; position ins of: PPINE™. It is%3. 

A$||"ILY" is A$ concatenated with "ILY". It is "HAPPINESSILY". 


PDP-10, RADIO SHACK, APPLE, PET, CBM, AND MBASIC 

LEN(A$) is the LENgth of A$. It is 9. 

LEFTS (RG. oO) is thes LEbT >. characters..of (AS. 2It is "HAP". 

REGHIAIAt 5) 1s othe RIGHT: Sichatacters. of AS: <1t.1s) "ESS": 

MID$(A$,3) is the MIDdle of A$, beginning at the 3rd character. It is "'PPINESS'. 
MID$(A$,3,5) is the MIDdle of A$ from the 3rd char., taking 5 of them. It is ''PPINE". 
THSTR(AS VEPING') is. the position IN STRing A$ of MPPINE". It as 3 

BSPULLY as. MPHAPPINESSI LY. 

(Exception: INSTR doesn't work on the Apple, PET, or CBM. To use it on the 

Radio Shack, you must buy either a disk or Level 3 BASIC.) 
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PDP-11 AND PDP-20 

LEN(A$) is the LENgth of A$. It is 9. 

LEFT(A$,3) is the LEFT 3 characters of A$. It is "HAP". 
RIGHT(A$,3) is the RIGHT part of A$, beginning at the 3rd character. It is 'PPINESS" 
MID(A$,3,5) is the MIDdle of A$, from the 3rd char., taking 5 of them. It is "PPINE", 


INSTR(1,A$,"PPINE") is the position IN STRin A$ of “PPINE™, “It i 
’ . t 5 
A$+"ILY" is "HAPPINESSILY". ; “ss 


STRING CONVERSION 

This program converts a string to a number: 
10 A$=""72.6!" 
20 B=VAL(A$) 
30 PRINT Btl 
40 END 
Line 10 says A$ is the string "72.6". Line 20 says B is the numeric VALue of A$; 
souBy1s \thejnumber 7276 .ye bine; 30eprints,; 

7566 
On IBM computers, say NUM instead of VAL. 

This program does the opposite: 
10 C=8.4+1 
20 D$=STR$(C) 
30 PRINT D$;"'FUN" 
40 END 
Line 10 says C is the number 9.4. Line 20 says D$ is the STRing of C; so D$ is the 
Stringe9. 4" “Lane SO prints: 
9.4FUN 
That program works on most computers, but not on IBM, and not on PDP-11 computers 
having just BASIC-PLUS. 
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ASCII 
On most computers, each character has a code number: 
CHADACT Ents Stacem (hu) Warm sate * Cs) Am ts <r Ye 0 Via getc 9 
CODE NUMBER: 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 etc. 57 


CHARACTER: Piss. Shia aeeven Ae Bs CG etc. =a) CNet 4 
CODE NUMBER: 58 59 60 61 62 63 64 65 66 67 etc. 90 91 92 93 94 95 

The code number is called the ASCII decimal code nwnber. On some computers, to 
convert from a character to its code number, say ASCII. For example, ASCII("'B'') is 
66, because the ASCII decimal code number for "'B" is 66; and ASCII("'t") is 94, 
because the ASCII decimal code number for "+t" is 94. The exact notation depends 


on your computer: 
PDP-11, PDP-20 MOST MICROCOMPUTERS PDP-10, HONEYWELL 


ASCII ('"'B"') ASC (""B'') ASC (B) 
ASCIDG*4Y) ASC ("4") ASC (+) 


To convert from a code number to its character, say CHR$. For example, CHR$(66) 
ieee Bige and CHRS( 94): 2s. t 

This program makes the computer print a quotation mark: 

10 PRINT CHR$(34) 
20 END 

This program makes the computer print JOHN SAW !'HAMLET' LAST NIGHT: 

10 PRINT "JOHN SAW '': CHR$ (34) ; "HAMLET"; CHR$ (34) ;"' LAST NIGHT" 
20 END 

In the table, the code numbers go from 32 to 95. The code numbers below 32 are 
for the controlled letters: 

CHARACTER: controlled @ controlled A controlled B controlled C etc. 
CODE NUMBER: © 0 1 2 3 6tc. 

I said that typing a controlled G makes the computer ring the terminal's bell. 
Since the code number for a controlled G is 7, this program makes the computer 
ring the bell: 

10 PRINT CHR$(7) 


20 END 
The code numbers above 95 are for terminals that can print lower-case letters. 
CHARACTER: ageboc Zemotmaen say) > 


CODE NUMBER?) 96997 98 99%ete: 122°123.124 125 126 
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The fastest programs 


THE FASTEST WAY TO ALPHABETIZE 
Alphabetizing is called sorting. To alphabetize on IBM computers, say MAT X$=ASORT (X$) , 
where X$ is the list of names you want to alphabetize. 
Here's the best way to write your own sorting program on non-IBM computers.... 
If the list you want to alphabetize is short, run this program: 
10 DIM x$(150) 
20 READ N pee the data, and call it X$ 


30 MAT READ X$(N) If your eu ieee doesn't 
40 FOR I = 1 TO N-1 understan T, 4ay— 

50 FOR J = I TO 1 STEP -1 30 FORT = 1 TON 

60 IF X$(J)<=X$(J+1) THEN 200 3] READ X$(T) 

o se cary Sap X$(J) py atphabetize X$ Ra 

90 x$(Je1)aTs  } Weth X# (JT) 210 FOR 1 = 1 TON 

100 NEXT J aM pate X$(1) 

200 NEXT I 

210 MAT PRINT X$ } print X$ 

900 DATA 12 


910 DATA SUE, ANN,JOE,ALICE, TED, JILL, FRED, AL, SAM, PAT 

920 DATA SALLY,MIKE 

999 END 

In lines 910 and 920, list the names you want to alphabetize; the example alphabetizes 
SUE, ANN, JOE, etc. In line 900, say how many names you want to alphabetize; the 
example alphabetizes 12 names. Line 10 lets you alphabetize up to 150 names; if 

you want to alphabetize more than 150, retype that line. If you RUN the example, 

the computer will print: 


TED 


Here's why that program works. In the example, line 20 makes N be 12; so N is 
how many names are in the list. Line 30 makes X$(1) be the first name (SUE), makes 
X$(2) be the second name (ANN), makes X$(3) be the third name (JOE), and so on; X$(N) 
is the last name (MIKE). Line 40 makes I start at 1. Line 50 makes J start at I; 
so I and J are both 1. Line 60 says to compare X$(J) with X$(J+1); since J is 1, 
the computer compares X$(1) with X$(2); in other words, the computer compares SUE 
with ANN. If SUE and ANN were in alphabetical order, the computer would skip from 
line 60 to line 200; but since SUE and ANN are not in alphabetical order, the computer 
proceeds from line 60 to line 70. Lines 70-90 swap X$(1) with X$(2), like this.... 
BEFORE THE SWAP: X$(1) is SUE; X$(2) is ANN 
AFTER THE SWAP: X$ (1) 2 SsANN? XS (2) seus 
So after the swap, the list of names is closer to being in alphabetical order. Lines 
100 and 200 assure enough swaps to alphabetize the whole list. Line 210 prints the 
alphabetized list. 
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Shaw & Trimble invented that program in 1963, and called it the Shuttle Sort. 
If the list you want to alphabetize is long, this variation will run faster: 
10 DIM x$(150) 


20 READ N nead the data, and calk it X$ 
30 MAT READ x$(N) 
+31 D=N é 
+32 D=INT(D/3)+1 } compute the distance, D 
+40 FOR I = 1 TO N-D 
+50 FOR J =.I TO 1°STEP -D 
+60 IF X$(J)<=X$(J+D) THEN 200 : 
+70 T$=X$ (J) akphabetize X 
+80 X$ (J)=X§(J+D) pave? op f 
+90 X$ (J+D)=T$ with Xe (J+D) 
100 NEXT J 
200 NEXT I 


+201 51F D>1) THEN 32 
210 MAT PRINT X$ } print X$ 
900 DATA etc. 
999 END 
That variation, called the Short Shell Sort, comes from research by Donald Shell 
(in 1959), Hibbard §& Boothroyd (in 1963), Peterson §& Russell (in 1971), Knuth (in 
1973), and myself (in 1978). Test yom mouth: say "Short Shell Sort" ten times, 
quickly. 

Lines 31-201 form the program's body. If the list you want to alphabetize has only 
10 names, the Short Shell Sort is no’ better than the Shuttle Sort; but if the list 
you want to alphabetize is longer, the Short Shell Sort is faster than the Shuttle Sort, 
because of this theorem: 


Applying the theorem, we get: 


LENGTH OF THE LIST SHORT SHELL SORT'S BODY SHUTTLE SORT'S BODY 
10 names 1 time-unit 1 time-unit 

100 names 18 time-units 100 time-units 

1,000 names 324 time-units 10,000 time-units 

10,000 names 5,832 time-units 1,000,000 time-units 
100,000 names 104,976 time-units 100,000,000 time-units 
1,000,000 names 1,889,568 time units 10,000,000, 000 time-units 


On a small maxicomputer, a "time-unit" is about a tenth of a second, so the data 
looks like this: 


LENGTH OF THE LIST SHORT SHELL SORT'S BODY SHUTTLE SORT'S BODY 
10 names .1 seconds .1 seconds 
100 names 1.8 seconds 10.0 seconds 
1,000 names 32.4 seconds 16.7 minutes 
10,000 names 9.7 minutes 1.2 days 
100,000 names 2.9 hours 3.8 months 
1,000,000 names 2.2 days 31.7 years 


The Short Shell Sort is faster than the Shuttle Sort, because the Short Shell Sort 
puts the list into "roughly" alphabetical order, before worrying about the fine details. 
To put the List into roughly alphabetical order, the Short Shell Sort begins by 
comparing X$(1) with X$(1+D), where D is a large distance. It also compares X$(2) 
with X$(2+D), and X$(3) with X$(3+D), and so on. (The comparisons occur in line 60; 
the distance D is defined in lines 31-32.) After comparing each X$(J) with X$(J+D), 
the computer decreases D and goes through the procedure again; since D is smaller, 
the computer is doing a more detailed job of putting the list into alphabetical order. 
D keeps decreasing (in line 32), and the alphabetizing gets finer and finer, until D 
is 1, which makes the computer alphabetize exactly. 
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If the list you want to alphabetize is very long, you can speed the program even 
further by deleting lines 50 and 100 and inserting extra lines: 
10 DIM X$(150) 


20 READ N nead the data, and call it X$ 
30 MAT READ X$(N) 

31 D=N 

32 D=INT(D/3)+1 } compute the distance, D 


40PFORSD =nieTo: Ned 


+60 
+70 


200 
201 


IF X$(I)<=X$(I+D) THEN 200 
T$=X$ (1+D) } compute T$ and J 


J=I 
X$ (J+D)=X$ (J) alphabetize X$ 
J=J-D j 
TF J<1 THEN 90 change X$(J+D), while changing J 
IF T$<X$(J) THEN 80 
X$ (J+D)=T$ 
NEXT I 


IF) D>1 THEN’ 32 


210 MAT PRINT X$ 4} print X$ 
900 DATA etc. 


994 


END 


That program, called the Long Shell Sort, comes from further research by Hibbard 
(in 1963) and myself (in 1978). If the list has more than 100 names, the Long Shell 
Sort runs about 20% quicker than the Short Shell Sort. 

Problem: write a program that alphabetizes a phone directory. 

Solution: suppose you want to alphabetize this little phone directory.... 


NAME PHONE NUMBER 
Mary Smith 277-8139 
John Doe 513-9134 


Russ Walter (617) 266-8128 
Information 555-1212 


Use 
900 
910 
920 
The 
DOE 


one of the alphabetizing programs. Type the DATA like this: 
DATA 4 

DATA "SMITH MARY 277-8139","DOE JOHN 513-9134" 

DATA "WALTER RUSS (617) 266-8128", "INFORMATION 555-1212" 
computer will print: 

JOHN 513-9134 


INFORMATION 555-1212 
SMITH MARY 277-8139 
WALTER RUSS (617) 266-8128 
Problem: write a program that puts a list of numbers into increasing order. For 
example, if the numbers are 51, 4.257, -814, 62, and .2, make the computer print ... 


-814 


Solution: use one of the alphabetizing programs; but in the DATA statement, put 


the 


numbers instead of strings; and remove the dollar signs (say X instead of X$, 


and say T instead of T$). 
Problem: write a program that puts a list of numbers into decreasing order. 
Solution: write a program that puts the list of numbers into increasing order; 


but 


change Well to Moth 
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Comment: in 1961, Hoare invented a different way to alphabetize, called Quicksort; 
in 1965, Scowen improved it, and called the new version Quickersort; in 1968, Singleton 
improved it even further; and from 1969 to 1971, Peto §& van Emden § Frazer § McKellar § 
Wheeler suggested further improvements. If you multiply the length of the list by 10, 
the body of Quicksort (and its improvements) will take only 13 times as long, instead 
of 18 (for the Short Shell Sort and the Long Shell Sort) or 100 (for Shuttle Sort). 

But though Quicksort runs quickly, it contains many lines, and your fingers will 
probably fall off before you finish typing the program. So why bother? 


HOW TO SPEED UP THE COMPUTER 
On a Radio Shack computer (with Level II or Disk BASIC), these tricks will make the 
computer run more quickly.... 
Instead of exponents, use multiplication: 


SLOW FASTER 
50 Y=Xt2 50 Y=X*X 
Combine statements, to form a single line: 
SLOW FASTER 
50 A=3 50 A=3: B=7 
60 B=7 


Warning: an IF statement cannot be combined with a later statement. 
CANNOT BE COMBINED 
SOaglFeIl<1/ THEN. 200 


60 B=7 
If a number contains a decimal point and is in a loop, turn the number ir** a war1ab]e: 
FASTER 
SLOW 49 C=3.1 
50 FOR I = 1 TO 1000 50 FOR I = 1 TO 1000 
60 S=S+3.1/I1 60 S=S+C/I 
70 NEXT I 70 NEXT I 
Omit the variable after NEXT (unless the FOR...NEXT loop contains another FOR...NEXT 
loop): 
SLOW FASTER 
50 NEXT I 50 NEXT 


If your program doesn't involve decimals or large numbers, put this statement at 
the beginning of your program: 
1 DEFINT A-Z 
It tells the computer that every numeric variable will be an integer between -32768 
and 32767. 

If your program involves only a few decimals or large numbers, put this statement 
at the beginning of your program — 
1 DEFINT A-Z 
—and put an exclamation point after each variable that stands for a decimal or large 
number, like this: 
50 X!=9.5 
60 Y!=5931742 
POU I= x * 5.7 
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Using those tricks, you can make the Long Shell Sort run even faster, by rewriting 
it like this: 

10 DEFINT A-Z: DIM X$(150): READ N 

30 FOR I = 1 TO N: READ X$(1): NEXT: D=N 


32 D=D/3+1 

40 FOR I = 1 TO N-D 

60 IF X$(I)<X$(I+D) THEN 200 

70 T$=X$(I+D): J=I 

80 X$(J+D)=X$(J): J=J-D: IF J>0 THEN IF T$<X$(J) THEN 80 
90 X$(J+D) =T$ 

200 NEXT 


SOLNIF (D> 1) THEN S2 
210 FOR I = 1 TO N: PRINT X$(I): NEXT 
900 DATA etc. 
Line 32 omits INI, because line 10 says DEFINT. 
Some of those tricks work on other computers too. Try them. 


THE FASTEST WAY TO SHUFFLE A DECK OF CARDS 
Here are two popular ways to shuffle a deck: 


THE IDIOT METHOD 
10 RANDOMIZE 

20 DIM C$(52) 

30 MAT READ C$ 

40 FOR I = 1 TO 52 


If your computer doesn't understand MAT, say this. 
50° FOR T= 1°10 52 
3] READ C$(T) 


50 R=1+INT(RND*52) 42 NEAT I On Radio Shack computers, Sa, 
60 IF C$(R)=""' THEN 50 50 R=RND (52) 

70 PRINT C$(R) 

80 C$(R)=""" 

90 NEXT I 


100 DATA AC REE SC e MACH NSO MECH ALIGN ERO er Att arc OL ake 
110 DATA ;AD,“2DMNSDU U4 Db", USD 6D U7 DEUS De OD St 0B ee Oo0b, KD 
120 DATA AH,''2H"', "3H", "4H", "'SH", "6H'', "7H", "8H", OH", "10H", JH, QH, KH 
130 DATA AS, "25", "3S", "4S", "SS", "6S NTS" NBSth Nos, 10S", JS,QS,KS 
140 END 


THE PROFESSIONAL METHOD 
10 RANDOMIZE 

20 DIM C$(52) 

30 MAT READ C$ 


+40 FOR I = 52 TO 1 STEP -1 On Radio Shack computers, Say: 
+50 R=1+INT(RND*I) 50 R=RND(TI) 

70 PRINT C$(R) 
+80 C$(R)=C$ (1) 

90 NEXT I 


100 DATA AC, 2c", "30", "4c, "Sth, NEC, HE", "BC™. 90", 106" IC, 0G, KG 
110 DATA® AD, 2D" MSDs Di MED OOD Mr yO ean woke eC) Liens 
120 DATA AH, ''2H", "3H", "4H", "SH!" "6H" "7H", "8H" OH "1 OH" JH, QH, KH 
130 DATA AS, 825", 735, MASE NSS Mast larg Agar rst OS 15,09, ke 
140 END 


The idiot method is easier to understand; the professional method is briefer and 
runs more quickly. 


Page 87: The fastest programs 


First, let's look at the idiot method. Line 20 reserves space in the computer's 
memory, to hold 52 cards: the first card will be called C$(1); the next card will 
be called C$(2); the last card will be called C$(52}. Line 30 reads the cards, in 
order, from the DATA; in the DATA, AC means "Ace of Clubs", "2C'' means ''2 of Clubs", 
and "'KS'' means "King of Spades". Lines 40-90 shuffle the deck; here's how....Line 40 
makes the computer do the loop 52 times—once for each card. Line 50 makes the 
computer pick a random integer from 1 to 52; that integer represents a card in the 
deck. Line 70 makes the computer print that card, so the computer prints a random 
card. Line 80 makes that card "disappear'' from the original deck, so it won't get 
picked again. Line 60 says: if the card the computer is thinking of picking has 
disappeared already, go back to line 50, which picks a different card instead. So 
altogether, the program prints the deck of cards, but in a random order, and so that 
no card gets picked more than once. 

The idiot method is slow, because it contains two loops. One loop is the FOR...NEXT 
loop, lines 40-90... The other loop is the IF...THEN loop, lines 50-60. : The IF...THEN 
loop is inside the FOR...NEXT loop; whenever you write a program that contains a loop 
inside a loop, it runs slowly. 

The professional method is briefer, because it omits line 60; and it is much faster, 
because it eliminates the IF...THEN loop. Here's how it works....Line 20 reserves 
space for 52 cards. Line 30 reads the cards, in order. Lines 40-90 print the deck, 
shuffled, by doing the following activity, 52 times: remove a card from the deck 
(and PRINT that card), and move the deck's bottom card to the "hole" left by the 
removed card. Each time the computer does that activity, the deck gets smaller: 
first ‘there are 52 cards to choose from, then 51 remain, the 50 remain, etc., until 
finally all the cards have been removed and the deck disappears. Line 40 says the 
size of the deck will be 52, then 51, then 50, etc. Lines 50 and 70 make the computer 
pick a random card from the deck and PRINT that card. Line 80 moves the deck's 
bottom card to the "hole" left by the removed card. 

Most textbooks on BASIC mention just the idiot method. Perhaps that says something 
about the authors? 
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THE FASTEST WAY TO DRAW A GRAPH AND LABEL EACH POINT 
On page 48, you'll find a program that graphs Y=Xt2. The program prints asterisks: 
if you take a pencil and draw a line from asterisk to asterisk to asterisk, you'll 
get a pretty graph. 


Here's a fancier program, that can graph any function, and that also prints the 


numbers that are the coordinates of each point: 
10 DIM Y(200) 


20 PRINT "WHAT'S THE SMALLEST X YOU WANT TO GRAPH"; 
30 INPUT X1 

40 PRINT "HOW MANY VALUES OF X DO YOU WANT TO GRAPH"; 
50 INPUT N 

60 PRINT "HOW FAR APART DO YOU WANT THE VALUES OF X TO BE"; 
70 INPUT D 

80 S=1E38 

90 L=-1E38 

100 X=X1 

110 FOR I = 1 TON 

120 Y=X43-SQR(X) 

130 Y(1)=Y 


140 IF Y>=S THEN 200 
150 S=Y 

200 IF Y<=L THEN 300 
210 L=Y 

300 X=X+D 

310 NEXT I 

320 W=72 

330 F=(W-4)/(L-S) 

340 X=X1 


350 FOR I = 1 TON 
360 T=(Y(1)-S) *F+1.01 


370 IF T<16 THEN 400 

380 PRINT Xs YOR) TABCT) 312! 
390 GO TO 500 

400 PRINTOTAB (Tae tts X SY (i) 
500 X=X+D 

510 NEXT I 

520 END 


Line 10 lets the computer plot up to 200 points. If you want to plot more than 200 


points, retype line 10. 
Lines 20-70 ask you which values oe X you want to pLote Lines 80-310 compute S, L, 


and the Y values, as follows. 
Line 120 computes each peeve of Y. In the example, line 120 says Y_ is Xt3-SQR(X); 
if you want to graph a different function, retype that line. So if you want to graph 


Y=Xt2, line 120 should say Y=X+2. If you want to graph some DATA, line 120 should say 


READ Y, and you must type a DATA statement containing the values of Y. 
Lines 80-90 and 140-210 set S equal to the smallest Y value, and set L equal to the 


largest. 

Line 320 sets W equal to the terminal's width. That line assumes your terminal can 
type 72 characters per line. If your terminal cannot type 72 characters per line; 
retype line 320. For example, if your terminal is narrow, and types only 64 characters 
per line, you should say that W=64. If your terminal (or printer) can type 132 
characters per line (and if your version of BASIC can handle 132 characters per line), 
you can say that W=132. 

Line 330 computes a "scaling factor", to shrink the values of y, so they will fit 
On the terminal's paper or screen. The -4 is for safety, in case your computer does 
a bad job of rounding, or in case your terminal acts crazy when it gets near the right 
margin. 
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Lines 340-510 draw the graph, as follows....Line 360 uses the scaling factor (F) 
to scale down the Y value, so it will fit on the paper; the 1.01 is for safety, in 
case your computer does a bad job of rounding, or in case your terminal acts crazy 
near the left margin. The T that line 360 computes tells the computer how many spaces 
to Tab over, when it prints an asterisk on the graph. Line 370 checks whether T 
is less than 16. If T is less than 16, the asterisk will be near the left margin, 
so the computer must print the asterisk before printing the coordinates, that's what 
happens in line 400. But if T is not less than 16, the asterisk will be closer to 
the right margin, so the computer can print the asterisk after printing the coordinates; 
that's what happens in line 380. : 

If your computer can handle fancy IF and INPUT, you can write the program more 
briefly, like this: 
10 DIM Y(200) 
20 INPUT "WHAT'S THE SMALLEST X YOU WANT TO GRAPH"; X1 
40 INPUT ''HOW MANY VALUES OF X DO YOU WANT TO GRAPH"; N 
60 INPUT "HOW FAR APART DO YOU WANT THE VALUES OF X TO BE"; D 
80 S=1E38: L=-1E38: X=X1 
P10° POR I= I TO'N 
120 Y=X43-SQR (X) 
130 Y(1I)=Y 


140 IF Y¥<S THEN S=Y 
200 IF Y>L THEN L=Y 
300 X=X+D 

310 NEXT 1] 


320 W=72: F=(W-4)/(L-S): X=X1 
350 FOR I = 1 TON 
360 T=(Y(I)-S)*F+1.01 


370 IF T<16 THEN PRINT TAB(T);"*";X;Y(I) ELSE PRINT X;Y(I);TAB(T)3"'*" 
500 X=X+D 
510 NEXT I 


520 END 
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THE FASTEST WAY TO MAKE THE COMPUTER PLAY TICK-TACK-TOE 


This program makes the computer play 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


print the «<nstructions 


the computer's first move 


the computer's second move 
the computer's third move 


the computer's fourth move 


the computer's 444th move 
STOP 
1000 
1010 
1020 
1030 
1040 


Subroutine, to show the 
computer's move and get 
the human's 


the human erred, 40 
the computer wins 
Here are two runs: 


END 


LET'S PLAY. DLCK- TACK TOR. 
THE BOARD IS NUMBERED: 


I MOVE TO 9 


WHERE DO YOU MOVE TO? 8 


WHERE DO YOU MOVE TO? 


Line 10 explains the program's purpose. 
is called 9, and the other squares are numbered from 1 to 8, clockwise. 
the computer begin, by taking the center. 


and caltrit S* 

Line 80 cornes ak as ess 
X: 
FNM (X) 


14 X<8&.5, 
FNM (X) is the same as X. 


According to that table, FNM(X) is 1, 


then’8, ‘then ®*))“ then 2, 
tick-tack-toe board, 


etc. 
clockwise. 


tick-tack-toe, well enough so that it never loses: 
"LET'S PLAY TICK-TACK-TOE." 

"THE BOARD IS NUMBERED: 2 2 ou 
4 8 9 Ai 
ial 7 6 Cit 
“EA MOVE “LOPy 9 

"WHERE DO YOU MOVE TO"; 

S 


DEF FNM(X)=X-4+4*SGN (8.5-X) 
C=FNM(S+1) 

GO SUB 1000 

C=FNM(S+3) 

GO SUB 1000 

C=FNM(S+6) 

IF S/2=INT(S/2) THEN 2000 
GO SUB 1000 

PRINT "I MOVE TO ,FNM(S+4) 
PRINT "THE GAME {S A DRAW" 


PRINT "I MOVi YTO"';C 

PRINT "WHERE DO YOU MOVE TO"; 

INPUT H 

IF H<>FNM(C+4) THEN 2000 

RETURN 

PRINT "I MOVE TO"; FNM(C+4);"AND WIN" 


LET* SS“ PLAY: TIGK=TACK=TOE. 

THE BOARD IS NUMBERED: 1 2 
8 9 
7 6 


5 
4 
5 
I MOVE TO 9 
HERE DO YOU MOVE TO? 
I MOVE TO 2 
WHERE DO YOU MOVE TO? 
I MOVE TO 4 
WHERE DO YOU MOVE TO? 
I MOVE TO 7 
WHERE DO YOU MOVE TO? 
I MOVE TO 5 
THE GAME IS A DRAW 
Lines 20-40 say that the center square 
Line 50 makes 
Lines 60-70 get the human's Starting Move, 


Et ey 
Ske Ask X-§. 


then 2, then 3, then 4, then 5, then 6, then, 


Those are the numbers you see if you go around the 
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Warning: if you have a Radio Shack computer, you must buy the minifloppy disks 
in order to use DEF. If you don't want to buy them, you must delete line 80 and 
rewrite lines 90, 110, 130, 160, 1030, and 2000. 

Line 90 says the computer's second move should be FNM(S+1). In other words, the 
computer should look at the human's Starting Move (S), and move 1 position further 
clockwise. For example, if the human's Starting Move was 4, the computer should 
move to 5; if the human's Starting Move was 7, the computer should move to 8; if 
the human's Starting Move was 8, the computer should move to 1. 

Line 100 makes the computer do subroutine 1000, which works as follows. Line 1000 
prints the computer's move, C. Lines 1010-1020 get the human's move, H. Line 1030 
checks whether the human has blocked the computer from winning. To block the 
computer from winning, the human must always move to the opposite square from 
the computer. For example, if the computer moves to 1, the human must move to 5 
(since the computer took the center, 9, at the beginning of the game); if the 
computer moves to 2, the human must move to 6; if the computer moves to 3, the 
human must move to 7. In other words, the human must move to FNM(C+4). Line 1030 
says: if the human did not move to FNM(C+4), skip to line 2000, which tells the 
computer to move to that square and win. 

Line 110 says the computer's next move should be 3 positions clockwise from S. 
Line 130 says the computer's fourth move should tentatively be 6 positions clockwise 
from S; but if S is even, the computer goes from line 140 to line 2000, which makes 
it move differently instead and win. 

That program is my improvement of a method developed by Kemeny § Kurtz. 


If you want the computer to play tick-tack-toe more cleverly —if you want the 
computer to set traps, and let the human go first, and print pretty pictures of the 
board after each move —make the program longer. Warning: the Surgeon General has 
determined that working on tick-tack-toe may be hazardous to your mental health. 

Here's the most famous trap. 


Xerxes (the smart player) begins by taking the corner: 


The Opponent thinks "the center is usually best": Aff 


Xerxes takes the opposite corner? bf 
The Opponent thinks "corners. are usually better than side squares": “ye 


0 
Xerxes takes the opposite corner: x 
o1'X 


Now the Opponent is trapped, and will lose. 
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Data files 


SEQUENTIAL ACCESS 
This program makes the computer print a message onto your terminal's screen or 
paper: 
10 PRINT "EAT" 
20 PRINT 2+2 
30 PRINT "EGGS" 


The computer will print: 


EAT 
4 
EGGS 


Instead of making the computer print onto your terminal, you can make the 
computer print onto a disk. For example, if you want the computer to create a 
file named SUE, on a disk, and if you want SUE to contain this message— 


EAT 
4 
EGGS 


type this: 


PDP-11 and PDP-20 
5 OPEN "SUE" AS FILE 1 


Radio Shack 


De ORENLO” ee SUE™ 


Atari 


5 OPEN#1,8,0,'"'D:SUE" 


10 PRINTS Ze EAT! 10 PRINT#1, "EAT" 10 (PRINTAT ASS EAT. 
20 PRINT#1, 2+2 20 PRINT#1, 2+2 20 PRINT#1; 2+2 
30 PRINT#1, "EGGS" 30 PRINT#1, "EGGS" 30 PRINT#1; ''EGGS" 
40 CLOSE 1 40 CLOSE 1 40 CLOSE#1 
RUN RUN RUN 
Nova and Eclipse PDP-10 Honeywell 
2 LOPENSRILE (1,1), “SUE” S FILER? oie SUEY NEW SUE 
20 PRINT BILE Ghd: pueke 10. PRINT#1,. "EAT" : 
30. PRINT FILEC1),, “EGGS” 20 PRINT#1, 2+2 10 PRINT#1: "EAT" 
40 CLOSE FILE(1) 30 PRINT#HI, “EGGS - do il coat 
RUN 40 END 4 
RUN 40 END 

RUN 

CDC IBM Apple 


10 PRINT@FILECSUE) "EAT" 
20 PRINT FILECSUE) 2+2 
30 PRINT. FIVECSUE) “EGGS” 


TOCPUTE SUE (CAIs 
20 (PUT SUES 6 2t2 
50! PUT “SUEY en EGGS” 


5 DS=CHRS(4) 
6 PRINT DS "OPEN SUE" 
¢ PRINT DS "WRITE SUE" 


40 RESTORE FILE(SUE) RUN 10 PRINT "EAT" 
RUN 20 PRINT 2+2 
SAVE,SUE 30 PRINT "EGGS" 
40 PRINT DS "CLOSE SUE" 


RUN 


Warning: for Radio Shack's computer, line 5 must contain the letter O, not a 
zero; the letter O means "Output". For the Atari, line 5 must contain a zero, 
which means "no abnormalities". 
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When you run that program, the computer won't print anything onto your 
terminal; it will print onto the disk instead. After you've run the program, if 
you want to prove that the computer has printed onto the disk, ask the computer 
to type a catalog of the disk; the computer will mention SUE. 


To find out what SUE looks like, type this: 


Honeywell CDC 


OLD SUE 
LIST 


GET,SUE 


LIST,F=SUE 


PDP-10 PDP-20 PDP-11 Atari 
COPY SUE>TTY: MONITOR PIP KB:=SUE.BAS DOS 
@COPY SUE.B20 TTY: C 
@BASIC SUE ce 
Then press 
the SYSTEM 
RESET key. 


Another way to see SUE is to run this program, which inputs from SUE and 
prints onto your terminal: 


PDP-11 and PDP-20 


SBOPENL SSUE SAS «Ff TIDES 


10 INPUT#1, A$ 
11 PRINT AS 


20 INPUT#1, B 
21 PRINT B 


30 INPUT#1, CS 
31 PRINT CS 


40 CLOSE 


1 


Nova and Eclipse 
5 DIM A$C(3), C$C4) 


GPOPEN FILEC],3), “SUE™ 


10 INPUT 
11 PRINT 


20 INPUT 
21 PRINT 


30 INPUT 
31 PRINT 


40 CLOSE 


CDC 
GET ,SUE 


10 INPUT 
11 PRINT 


20 INPUT 
21 PRINT 


30 INPUT 
31 PRINT 


FILE(1), AS 
AS 


FILE CI), /B 
B 


FILE(1), CS 
cS 


PIE CT) 


FILECSUE) AS 
AS 


FILECSUE) B 
B 


FILECSUE) CS 
CS 


Radio Shack 


| FOPEN SI, P, SUES 


10 INPUT#1, AS 
11 PRINT AS 


20 INPUT#1, B 
21 PRINT B 


30 INPUT#1, C$ 
31 PRINT C 


40 CLOSE 1 


PDP-10 
5 PALER, SUE: 


10 INPUT#1, AS 
11 PRINT AS 


20 INPUT#1, B 
21 PRINT B 


30 INPUT#1, C$ 
31 PRINT C$ 


40 END 


IBM 
> DIM A$3, C$4 


10 GET "SUE", AS 
11 PRINT AS 


20 GET "SUE", B 
21 PRINT B 


30 GET, "SUE", C$ 
31 PRINT C$ 


Atari 


5 DIM A$(3), C$(4) 
6 OPEN#H1,4,0,"D:SUE" 


10 INPUT#1, AS 
11 PRINT AS 


20 INPUT#1, B 
21 PRINT B 


30 INPUT#1, C$ 
31 PRINT C 


40 CLOSE#1 


Honeywell 
SOF LLEA sm. SUE” 


10 INPUT#1: AS 
11 PRINT AS 


20 INPUT#1: B 
21 PRINT B 


30 INPUT#1: CS 
31 PRINT CS 


40 END 


Apple 


5 DS=CHRS$ (4) 
6 PRINT DS ''OPEN SUE" 
¢ PRINT DS "'READ SUE" 


10 INPUT AS 
11 PRINT AS 


20 INPUT B 
21 PRINT B 


30 INPUT C$ 
31 PRINT C$ 


40 PRINT DS "CLOSE SUE" 


Line 10 inputs A$ from SUE, so A$ is EAT. Line 11 prints EAT onto your terminal. 
Line 20 inputs B from SUE, so B is 4. Line 21 prints 4 onto your terminal. 

Line 30 inputs C$ from SUE, so C$ is EGGS. Line 31 prints EGGS onto your terminal. 
So on your terminal, you'll see EAT and 4 and EGGS. 
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DIRECT ACCESS 
On a disk, you can store two kinds of data files. The simple kind is called a 
sequential-access data file; the complicated kind is called a direct access (or 
random-access) data file. You've already learned how to create and retrieve a 
sequential-access data file. Now let's look at direct-access. 

Though more complicated than sequential-access data files, direct-access data 
files have an advantage: they let you skip around. In a sequential-access data file, 
you must look at the first piece of data, then at the second, then at the third, etc. 
In a direct-access data file, you can look at the eight piece of data, then skip 
directly to the eleventh, then hop back to the third, then skip directly to the 


sixth, etc. 


This program creates a direct-access file called JIM, and makes the 8th piece 
of data in JIM be "I LOVE LUCY", the 50th piece of data in JIM be "PLEASE WASH 
MY CAR", and the 6th piece of data in JIM be "DON'T PICK YOUR NOSE IN PUBLIC": 


PDP-11 with BASIC-PLUS 


5 OPEN "JIM" AS FILE 1 
6 DIM#1, X$(50)=30 


10 X$(8)="I LOVE LUCY" 
20 X$(50)="'"PLEASE WASH MY CAR" 
30 X$(6)="'DON'T PICK YOUR NOSE IN PUBLIC" 


40 CLOSE 1 


Nova and Eclipse 


5 DIM x$(30) 
O,OPEN4FILEC TO) CEM 7 ou 


1O.WRITE, FILE GI,S), 71 COVECLUCKS 

20 WRITE FILE(1,50), "PLEASE WASH MY CAR" 

30 WRITE FILE(1,6), "DON'T PICK YOUR NOSE 
IN PUBLIC" 


40 CLOSE FILE(1) 


PDP-10 with U. Penn. BASIC 
5 FILET, “JIMSS0% 
10 SETS1 2.8\ PRINTE1, 17) EOVe ruby 


20 SET:1, 50\ PRINT:1, "PLEASE WASH MY CAR" 
30 SET:1, 6\ PRINT:1, "DON'T PICK YOUR NOSE 


IN PUBLIC" 
40 END 


PDP-20, and PDP-11 with BASIC-PLUS-2 


5 DIM#1, X$(50)=30 
6 OPEN ''JIM" AS FILE 1, VIRTUAL 


10 X$(8)="I LOVE LUCY” 
20 X$(50)="PLEASE WASH MY CAR" 
30 X$(6)="DON'T PICK YOUR NOSE IN PUBLIC" 


40 CLOSE 1 


Radio Shack 


5 OPEN "R",1,"JIM" 
6 FIELD 1, 30 AS x$ 


10 LSET.XS=,1) LOVECLUCY = POT ries 
20 LSET X$="'PLEASE WASH MY CAR": PUT 1, 50 


30 LSET X$=""DON'T PICK YOUR NOSE IN PUBLIC": 


PUT 1, 6 
40 CLOSE 1 


Apple 

5 DS=CHR$(4): RS=D$S+"WRITE JIM, R" 

6 PRINT DS "OPEN. JIM, L30" 

10 PRINT RS 8: PRINT "I LOVE LUCY" 

20 PRINT R$ 50: PRINT "PLEASE WASH MY CAR" 


30 PRINT R$ 6: PRINT "DON'T PICK YOUR NOSE 
IN PUBLIC" 


40 PRINT DS "CLOSE JIM" 


Lines 5 and 6 of those programs mention the numbers 50 and 30, because JIM's 
last item is the 50th, and because the longest item in JIM has 30 characters. 
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This program makes the computer tell you what JIM's 8th item is: 


PDP-11 with BASIC-PLUS 


5 OPEN "JIM" AS FILE 1 
6 DIM#1, X$(50)=30 


10 PRINT X$(8) 
20 CLOSE 1 


Nova and Eclipse 


5 DIM X$(30) 
6, OPEN FILEC],0),. "JIM", 30 


10 READ FILE(1,8), X$ 
11 PRINT X$ 


20 CLOSE 1 


PDP-10 with U. Penn. BASIC 
eects. SIMD OU. 


WOFSE)s1,00\ INPUT 21, XS 
11 PRINT X$ 


20 END 


PDP-20, and PDP-11 with BASIC-PLUS-2 


5 DIM#1, X$(50)=30 
6 OPEN "JIM" AS FILE 1, VIRTUAL 


10 PRINT X$(8) 
20 CLOSE 1 


Radio Shack 


PS UPENTE RES 1 gilli 
6 FIELD 1, 30 AS X$ 


10 GER AS 
11 PRINT X$ 


20eCLOSE.4 


Apple 


5 DS=CHR$(4): RS=D$S+"WRITE JIM, R" 
6 PRINT DS "OPEN JIM, L30" 


10 PRINT RS 8: INPUT XS 
11 PRINT X$ 


20 CLOSE 1 


Here are more details about direct-access data files: 


PDP-11 and PDP-20 


If JIM contains numbers instead of strings, line 5 should say: 


> DIM#1, X(50). 


If JIM contains strings and numbers, line 5 should say: 


5 DIM#1, X$(50)=30, Y (50) 
Radio Shack 


If you want JIM to contain pairs of strings, begin like this: 


S OPENS R41) JIM 
6 FIELD 1, 30 AS X$, 4 AS YS 


10 LSET X$="I LOVE LUCY": LSET YS=""WOW!"': PUT 1, 8 
A Radio Shack direct-access file must contain strings, not numbers; if you want 
to store numbers, you must convert them into strings. 


PDP-10 with U. Penn. BASIC 


If JIM contains numbers instead of strings, line 5 should say: 


> EICES LF INA 


On PDP-10 and Radio Shack computers, if you ask for LOF(1), the computer 
will give you the length of file 1. In the example about JIM, if you say— 


35 PRINT LOF (1) 
the computer will print 50. 
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Coupon 


SHARE 
Share your secret: photocopy this page, and give it to a friend. 

Do you know a young (or young-at-heart) computerist who's having a birthday, 
Christmas party, or graduation? Many oldsters have turned these volumes into 
presents. Send me the computerist's name, address, and either a greeting card 
or what you want me to say. 


VOLUMES 
This tenth edition of The Secret Guide to Computers consists of eight volumes: 
Volume Topic 
1: Popular BASIC the easiest way to program, using many dialects of BASIC 
2: Hassles in BASIC advanced BASIC, data files, graphics, programming style 
3: Popular Systems kinds of computer equipment, how they work, who to buy from 
4: Hassles in Systems how to manage a computer center...and your career 
5: Popular Applications what computers have done and can do 
6: Hassles in Applications advanced programming techniques for advanced applications 
7: Popular Languages FORTRAN, COBOL, PASCAL, comparison with BASIC 
8: Hassles in Languages 9 assembly languages, 22 high-level languages 


Each volume costs $3.70. The complete 8-volume set costs $29.60. 


DISCOUNTS 
To save money, get together with a friend: 


20% discount if you order 2 complete sets (or any 16 booklets) 

30% discount if you order 4 complete sets (or any 32 booklets) 

40% discount if you order 10 complete sets (or any 80 booklets) 
90% discount if you order 50 complete sets (or any 400 booklets) 
60% discount if you order 500 complete sets (or any 4000 booklets) 


POLICIES 
Do not send extra money for postage and handling: I'll pay for them myself, 
even if you live in a foreign country. If you're not sure whether to order a book, 
go ahead: you can return unused books at any time, for a 100% refund. 
We continually improve The Secret Guide to Computers. If you order a volume 
shortly before a new edition of it comes out, we'll send you a note immediately, and 
we'll send you the new edition when the printer ships it to us. 


TO GET "THE SECRET GUIDE TO COMPUTERS", CUT OUT THIS COUPON! 


$3.70 each; 29.60 for all eight. 
Mass. residents add 5% sales tax. 
On the other side, write your name, address, and any comments you have (pro or 
con) about The Secret Guide to Computers. Make check or money order payable to 
Russell M. Walter. Send to Russ Walter, 92 Saint Botolph St., Boston, MA 02116. 


Circle the volumes you want: 1 2 3 4 5 6 7 8 


Ten reasons why The Secret Guide to Computers is such a f SS ia 
1. Simple to read. Particularly popular among kids, Pate students, 
adults who want straightforward talk. 


2. Fast-paced. By reading 10 pages of The Secret Guide, you'll REN as 
much as by reading 50 pages of most competing texts. E 


3. Foolproof. Each edition has been carefully tested on Rocha and a" 
- revised to make.sure you can't go wrong. 3 a. 


4. Complete. The eight volumes teach you every oi of computers and 
the computer industry. ~; + 


5. Inside info. Anecdotes from programmers’ ee rooms. Tricks the 
experts use, to make programming easy. 


6. Examples galore. They're easy to type, and ready for you to run. 


Back-up help. Call the author, at (617) 266-8128, whenever ae have 
a question about computers. 


Ridiculously low price. Costs less than any piher computer text. 


. No math background required, beyond fourth grade. The series 
explains all the tools for advanced math. 


-10. It's fun! 


aie 


e 


wO- © 
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Head of a meat factory : 
"I spent $100 on books on BASIC. Yours was the ee one I Cant 
understand." 


Head of a computer’ cones. 
"By now, I suppose a million people have told you how really terrific 
The Secret Guide/to Computers is. I've been looking for good books on ~ 

BASIC, and yours is as thorough as the most complete but as readable as 
the most elementary. This book is better than any ae the es You : 
have them beat, by a mile. i 


Head of a large publishing company : ne). 
"I must tell you how much I enjoyed reading your bonbuter books. TI is 

is stranger than you'd imagine, for I find the machines deplorable. 
you've taken such a refreshing, comical, and interesting ee 
the likes of/me can enjoy them." 


Head engineer at the atomic-weapon design headquarters: A. 
"I have a big desk piled high with a lot of publications that talk a lot but 
-don't say anything. Your books have laid a bright spot on the | 
tedium. The Secret. Guide has assumed the importance here of a ve 
critical top-secret document. The volumes will be required readin, 
the whole crew. I had a professor at M.I.T. back in the forties v 
fond of saying that 'the wisdom of the world resides in a few bool YOU 
lifetime task will be to recognize them when you find them.' He we weg 


